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AUDIT  Main  Program 


COMMON  A (1326)  #0  ,'OoC)  . IDTHL  Mlt500)*lNlTIO(3),LASTlO(3)  , ISMCHO)  , 

OOOOOOlO 

i 

» NXTIO  (2)  , JPTW,N,H,  JTtr,L'“>rAPT  iN?,  IFNCNM.LOGID.  lOTYP.NIO* 

00000020 

» LOC**  TtM#lTYP*IbLKDT,MOnE,IERP,IDES 

00000030 

DIMENSION  I0Pl)(l5) 

OOOOOOAO 

COMMON /GLOB AL/NBLK,NNtF,NSUBS*bLKTHL ( 200 ) . E XT TbL  ( 1 00 ) • ISUBS( 100) 

00000050 

COMMON/ INPOUT/NC ALL, IN, lOP 

00000060 

COMmON/LABElS/STATPA (?,?ftO) ,NLABEL 

00000070 

C0MM0N/LIST/NLIST,NINTFC, ISUBLT (4,200) , INTFAC (600) 

00000080 

COMMON/STFuNC/NSTFnC,ISTFNC( 10) 

00000090 

COMMON/OOLOOP/I STACK (4,S0) ,NSTACK , ILOOP, IOvFLM 

00000100 

COmmON/BASBLK/ImLOCK (2500 ) , NbLOCK , Nb , NbPNCH 

000001 10 

COmmON/NTImES/NTImES, IQ2 

00000120 

COMMQN/FlOw/IFL, IPP 

00000130 

integer  A,8LANK,STATRA,hLKTbL,ExTTBL 

00000140 

DATA  BLANK/IH  /,  IC/IHC/, IF/1NF/,MA IN/4HMA IN/ 

00000150 

DATA  IOfiD/29, 30 ,31 ,32,25,28, 19,20,21 ,22,23,24,26,27,35/ 

00000160 

lOPeS 

00000170 

PEAD(5,1?)  M0DE,IN,IFL,INTR 

00000160 

12 

FORMAT (11,314) 

00000190 

ncall*o 

00000200 

NTIMES*0 

00000210 

NPEF*0 

00000220 

NBLK>0 

00000230 

NSU6S*0 

00000240 

IRP»IFl-1 

00000250 

PEA0(4)  NLIST,MNTFC 

00000260 

READ (4)  ( (ISUBLT ( I , J) , 1*1 ,4) , J*1 ,NLIST) 

00000270 

PEA0(4)  (INTFaC(I) ,I*1,NINTFC) 

00000280 

1200 

CONTINUE 

00000290 

4 

ISTATsO 

00000300 

iovflwso 

00000310 

MAINPP*0 

00000320 

NUAPF.L*0 

00000330 

NID*0 

00000340 

JJ*0 

00000350 

iblkdt*o 

00000360 

NSTACK=0 

00000370 

nblock=o 

00000380 

iLOOPsO 

00000390 

NP»0 

00000400 

IbLKST*0 

00000410 

NSTFNC=0 

00000420 

WRITE (6,13) 

00000430 

13 

FOPmATUMI) 

00000440 

IFNCNMaO 

00000450 

DO  2 1*1,11 

00000460 

DO  2 J*l,500 

00000470 

2 

lOTBL ( 1 , J) *0 

00000480 

DO  3 1*1,200 

00000490 

STATPA ( 1 , I ) «0 

00000500 

3 

STATPA(?,I)*o 

00000510 

DO  5 1=1,3 

00000520 

INITID(I)*0 

00000530 

5 

LASTIO(I)*0 

00000540 

700 

CONTINUE 

00000550 

IF(NULOCK  ,GT.  ?bOO)  60  TO  7000 
CALL  BUILD 

WRITE (6, 1000)  (A(I),I=1,S) 

1000  FOBMAT(//6X.100Al,13(/6X,ln0Al) ) 

IF(A(1)  ,EQ.  IC)  GO  TO  700 
IFST»1 

IF  (NEXT ( IFST ) ,EO.  BLANK)  GO  TO  700 

0 0 • 0 0 ♦ i 

CALL  CLASS 

IFdTYP  ,GT.  16  •AND.  ITYP  ,NE,  28)  60  TO  1320 


CALL  STATNO 
1320  JPTP*7 

IPRtCsISTAT 

ISTAT*ITYP 

IF { JJ  .Eg,  I ) GO  TO  7 
IFdbLKDT  ,EQ.  0)  60  TO  b 
IFdTYP  ,GE.  18  .AND,  ITYP  ,LE. 
60  TO  220 


27)  60  TO  8 


6 IF<LTYP  ,EQ,  9)  60  TO  120 
GO  TO  8 

7 IPREC«29 

IFdTYP  ,GE,  29  ,AN0,  ITYP  ,LE.  32)  60  TO  25 
HAINPP*! 

NXTIO ( 1 ) »MAIN 
NX71D (2) *BLANK 

25  IF<MAINPR  ,£Q,  0)  GO  TO  8 
CALL  PROG 
WRITE (I0P.610) 

WRITE  dOP.620) 

8 60  TO  {60f70.flO.RO*100fllO»20#140#20i20*A0.40«50.50.50.120*130. 

1 ?000fl0fl0tl0«10«10»170«180«190t200«210*150f36«30«lfe0f220«220f 

2 220.220) .ITYP 
10  DO  15  1*1.11 

IFdPREC  ,EO.  lORDd))  60  TO  17 
15  CONTINUE 

CALL  ERROR (2. I OH 1 • I 0M3 , I OM3 , I 0H4 ) 

17  CALL  type 
GO  TO  500 
20  CALL  SIMP 
60  TO  500 

30  IF(JJ  ,N£,  1)  CALL  ERROR  ( 2 . 1 DM 1 , IDH2 , 1 0H3 . IDH4 ) 

DO  35  1*1.20 

IF  (NEXT(JPTR)  ,NE,  IF)  GO  TO  35 
JPTR*JPTR-1 
CALL  SUB 
GO  TO  500 
35  CONTINUE 

38  1F(JJ  «NE,  1)  CALL  ERROR ( 2 « I DM 1 « I DM3 « IOM3 . I DM4 ) 


CALL  SUB 
GO  TO  500 
40  CALL  10 
60  70  500 
50  call  AUXIO 
60  TO  500 
60  call  INIT 


oooon=.60 

onoonsTo 

00000560 
OOOOOS90 
00000600 
0000O6 1 0 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000660 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000760 
00000790 
OOOOOBOO 
00000610 
00000620 
00000630 
00000640 
00000850 
00000860 
00000870 
00000860 
00000090 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 

ooooiooo 

ooooiolo 

00001020 

00001030 

00001040 

ooooioso 

00001060 

00001070 

00001080 

00001090 

00001100 


J 


hfPI  TF  ( fe,  66)  ( A ( I ) , I = 1 ,N) 

IF  ( ITYP  ,NF  , 60  TO  SOO 

ISTAT=35 

00  67  1=1 , IS 

IFdPWtC  .EQ,  lOWUd))  GO  TO  SOO 
67  CONTIMjE 

call  FPPOW  (2.  IDMl  , IDF*?*  It)M3,IDM4) 

GO  TO  500 

70  call  assign 
Go  TO  sno 
60  call  GOTO 
bO  TO  SOO 

call  asgoto 

GO  TO  SOO 

100  call  ctgoto 

GO  TO  SOO 
110  call  AHIF 
60  TO  SOO 
120  call  LOGIF 
60  TO  SOO 

130  call  no 

GO  TO  SOO 

UO  call  call 

wPITF (6»66)  (A ( 1) , 1*1 ,N) 

66  format (6X.72AI ) 

GO  TO  SOO 

ISO  IF(JJ  ,NE,  1)  CALL  £RP0P(2*IUM1,I0m2,I0M3,1DM4) 
ItaLKOT*! 

call  simp 

GO  TO  500 

160  IF(JJ  ,NE,  1)  CALL  ERROR ( ? , I DM  I , I DM2 , 1 0M3 , I UM4 ) 

call  prog 

GO  TO  500 
170  00  17S  1=1,12 

IFdPREC  ,EQ,  lOROdn  GO  TO  177 
175  CONTINUE 

call  error (2, I DM1 • I0M2, I DM3, I DMA) 

177  CALL  OIMEN 
GO  TO  500 
180  DO  185  1*1,5 

IFdPREC  ,£Q,  lOROdJ)  GO  TO  167 
185  continue 

call  error (2, IDMl ,IDM2, I0M3, IDMA) 

187  CALL  COM 
GO  TO  500 
190  DO  195  1*1,13 

IFdPREC  ,EO,  lORO(I))  60  TO  197 
195  continue 

CALL  ERROR  <2, IDMl , I0M2, IDM3, I DMA) 

197  CALL  EQUIV 
GO  TO  500 
200  DO  205  l«lfl4 

IFdPREC  ,EQ.  lOROd))  60  TO  207 
205  CONTINUE 

CALL  ERR0R(2,IDM1,IDM2,IDM3, IOMA) 


00001 1 1 n 
00001 120 
00001 130 
OOOOllAO 
OOOOl ISO 
00001 160 
00001 1?0 
000011 RO 
OOOOl 190 
00001200 
00001210 
00001220 
00001230 
000012AO 

00001250 
O0001260 
0000 1 270 
000012R0 
00001290 
00001300 
00001310 
00001320 
00001330 
000013AO 
onooi 3S0 
00001360 
00001370 
OO0013H0 
00001390 
00001 aOO 
OOOOIAIO 
00001A20 
00001A30 
OOOOl AAO 
00001A50 
00001A60 
00001A70 
00001 a80 
OOOOl a90 
00001500 
00001510 
00001520 
00001530 
O00015A0 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 


?07 

?10 

217 

?18 


240 

?hb 

?b0 


2?0 

SOO 


5?0 


b«kO 

^CI0 


MO 

620 


2000 


2100 


2200 

320?^ 


3210 


6000 


7000 

700S 


call  data 

60  TO  500 
00  21*>  1*1,6 

IFdPREC  .EO.  lORDiD)  GO  TO  217 
CONTINUE 

CALL  ERROR (2, lOHl • IUR2, 1Dm3, IDP'  » 

IF(N  ,6T,  72)  60  TO  2A0 
WRITE ( I0P.21H)  (A(I),1»1,N) 

FOPRAT  {72AD 
60  TO  250 

WRITE  ( 10P.2A5)  < A d ) • 1 = 1 *N) 

FORMAT (72Al/(5X,lM*,66Ai)) 

CALL  FRmaT 
60  TO  700 

CALL  E WROR  (1  dOHl  dOM2,  I0H3,  IDRi) 

CONTINUE 

IF (N  .6T,  72)  GO  TO  S40 
WRITE  ( IOP,5?0)  (A  d ) , 1»1 ,N) 

FORMAT ( 72A  1 ) 

60  TO  600 

WRITE  dOP*f45)  (A(I),Isl.N) 
F0RMAT{7?Al/<SX,lh*,6bAl)  ) 

IF  (MOUt  ,NE . 1 ) UO  TO  700 

IFiITyP  ,LT,  30  .OR,  ITyP  ,6T.  32)  GO  TO  700 
WRITE  dOP.610) 

F0RM4 7 (6x, ifM  COMPLt*  OlCOMPt 
WRITE  ( I0P.620) 

format  (bX.2*M  UOUULE  PRECISION  OlOPRE) 

60  TO  700 
WRITE  dOP,?020) 

FORMAT  (6X  . 3HE'Nf>) 

IF{N  ,nE,  72)  »»-ITE  (6,2100) 

FORMAT (6X,22m  illegal  END  STATEMENT) 

IF(MAINMR  ,tw,  1 .OR,  IhLMlT  ,EQ,  1)  60  TO  2?U0 
call  SI'MCHK 

IF  i Ih TR  ,NE , 1 ) 60  TO  3205 
CALL  INTRIN 
call  SY**-Tflti 

call  6kT 
CALL  rOMCHK 

IF  ( IOVFlw  .to.  I > GO  TO  3210 
CALL  LOOPCK 

IFdFL  ,EU.  n .OR.  IbLKUT  .E(J.  1)  GO  TO  3210 

call  FlOwCk 

IF  dE.RM  ,Nt  , 2)  GC  TO 

CALL  6LOTAH 

IF(mOI)E  .to.  1)  GO  TO  6000 

CALL  GtE'ROL 

RtV'INI'  V 

RtwIED  H 

STOP 

WRITE  (6,7005) 

FOR'-AT  (/////6X  ,5AH  overflow  of  HASIC  HLUCn  TAhLE 
>INATE(^) 


0000^660 
00001670 
OOOOl 6B0 
00001690 
00001700 
00001710 
00001720 
OOOOl 730 
00001 740 
OOOOl 750 
OOOOl 760 
00001770 
OOOOl 7P0 
POOOl 790 

noooiBoo 

OOOOlfllO 
00001820 
00001830 
OOOO 1 840 
00001850 
00001860 
00001870 
00001880 
OOOOl 890 
00001900 
OOOO] 9J  0 
00001920 
00001930 
00001940 
OOOOl 950 
00001960 
00001970 
00001900 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
O000208O 
00002090 
000021 00 
000021  1 0 
00002120 
00002130 
0O002140 
00002150 
00002160 
00002170 
PROCESSING  TfRMOn002l80 
OO0021 90 


STOP 

END 


00002200 

00002210 


J 


AUDIT  Subprograms 


SUBRnuTINt  ARIF 

COF-MON  A(13?f,),r(500).  lOTWL  (1U500)*IN1TID(3).LASTID(3).  ISRCn(  3)  • 

• NXTID(?),JPTR*N,M,JTvP,LSTART,N?,IFNCNM,LOOID,InTvR*Min,  ' 

• LOC .LTVP, ITVP, IbLKDT .POOF ♦ I£WR, lOES 
COP*^ON/TYP/NaO,PHSTvP,No?,NintLHSTYP 
COP«ON/STRING/MYP£  f NSTR,  STR  (=*0  0 ) 

COUPON /lah£l<;/<>tatra  (?,?oo)  .mahel 

COPPON/HASbLK/lbLOC»^  ( ?500  ) * NHLOCk  , Nri  , NtJPNCM 
INTEGER  A,<;TATRA,STR.COHPA,BLANK,RHSTYP,AY*Er 
iNTEbfR  falTPUT 

DATA  LPAR/1m( / ,C0PMA/IH, / .blank /\M  /,AV/iHl/,EF/\HF/ 

IF  (NtxT  ( JPTR)  ,n£.  Ay)  GO  TO  30 

IF (NE XT ( JPTR)  ,n£,  EF)  go  TO  20 

IF (NEXT ( JPTR)  ,Nt,  LPAR)  go  TO  ?0 

jPTRsoPTR-1 

call  Expr 

N5TP  = NST»*  1 

STR  (N«;TW)  = -5 

NTYPE=1 

call  parse 
call  EhCSTR 
CALL  BLKSTR 

IF(RHSTyP  .EQ.  n CALL  EOROR{4?) 

nhrnch=o 

DO  10  1=1,3 
CALL  6NLE 

IF (Jtyp  ,ne,  S)' go  to  20 
call  ^tsrch 

STATRA (2,L0C)=bITPUT (STATRA(2*L0C)*1,12) 

IF{  NHRNCH  ,tO,  0)  60  TO  S 
00  3 J=l tNbRNCH 

1F(L0C  ,E0.  IhLOCK (NbLOCK-J*l ) ) GO  TO  7 

3 continue 


S NhLOCKsNbLOC^ ♦ 1 
IhLOC^ (NbLOCK 1 =LOC 
NhRNCHsNbPNCh* 1 


7 IF ( I .EQ,  3»  GO  TO 

10 

IF (NEXT (JPTP)  ,Nt. 

COMMA ) 

GO 

TO 

20 

10  CONTINUE 

IF (NEXT (JPTR)  ,NE , 

blank ) 

60 

TO 

20 

NB*1 
RE  TURN 

20  call  ErP0R(7,I0p1,I0H?,I0m3,10M4) 
RE  TURN 
END 


no«nnnlo 

Onnnortpn 

onrino/'3'> 
00  n ft  f>  ft 

0ft0ftftftf\0 
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SUHPOUTiNt  4Sr,OTO 

COMMON  A U3?M  .iJ  (500)  ,IOT«L  (1 1 .500).  INITIO  (3)  .LAST  10  (3)  . I5BCH|3)  . 

• NXTlD(?),JPTH,N.M,JTYP.LSTABT,N2,IFNCNM,LClGID.InTVP.Nin. 

• LOC.LTYP.ITYP,  IbLK0T,M0)3E,  lERP.  lOES 
COMHON/LABELS/STAThA (?,?00) .NLA BEL 
COHMON/6ASBLI'/lBLOCK(2500)  . NBLOCK  , NB  , NBPNCM 
OINENSION  lALPH(A) 

integer  STATRA.hLANK.COHMA.RPAR.A 

INTEGER  BITPOT.bITGET 

DATA  lALPM/lHG, IHO, IHT. IMO/ 

DATA  PLANK/IM  /,C0MMA/1H,/,LPAH/1M(/,RPAR/Ih)/ 

DO  5 I«1.A 

IF (NEXT ( JPTR)  ,NE.  lALPH(I))  GO  TO  30 
5 CONTINUE 
call  GNLE 

IF(JTYP  .NE.  ?)  GO  TO  30 
CALL  SEARCH 

IF(ISRCH(2)  .EQ,  1)  CALL  ERROR ( 1 0 .NXT ID ( 1 ) ,NXT ID ( 2 ) , IDM3. IDMA) 

IF(ISRCHd)  .EQ.  1)  GO  TO  10 

IDTYP*1 

CALL  STORE 

LOC-NIO 

10  CALL  IMPTYP 

IF(BIT6ET(IDTBL(3,L0C) ,10,3)  .NE.  4) 

• CALL  ERR0R(39,NXTID(1) ,NXTID(2) ,IDM3,I0M4) 

IF{eIT6ET(IDTBL(3,L0C) ,1,1)  .EQ.  1) 

$ CALL  ERR0R(14,NXTI0(1),NxTID(2),1DM3,IDN4) 

IF (NEXT (JPTR)  .NE.  COMHA)  GO  TO  30 

IF(NExT(JPTR)  .NE.  LPAR)  GO  TO  30 

NBLOCK«NBLOCK*l 

IBLOCK (NBLOCK) «5000»LOC 

NBRNCH»0 

20  call  gnle 

IF(JTYP  .NE.  5)  60  TO  30 
CALL  STSRCH 

STATRA(2,LOC)*BITPUT(STATRA(2,LOC) ,1,12) 

IF(NBRNCH  ,EQ,  0)  GO  TO  25 
DO  22  1»1,N8RNCH 

IF(L0C  .EQ.  1BL0CK(NBL0CK-1»1) ) GO  TO  27 
22  CONTINUE 
25  NBLOCK«NBLOCK»l 

IBL0CK(N6L0CK)«L0C 

NBRNCH«NBRNCH,1 

27  IF(NEXT(JPTR)  .EQ.  COMMA)  60  TO  20 
IF(A(JPTR-1)  .NE.  RPAR)  60  TO  30 
IF(NEXT(JPTR)  .NE.  BLANK)  60  TO  30 
NBal 
RETURN 

30  CALL  ERR0R(7,IDH1,I0M2,IDM3,IDM4) 

return 

END 
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SUBROUTINE  ASSIGN 

COMMON  A ( 13?6) *U (500) * 10181 (11*500)*INITI0(3)  .LASTiO (3) , JSrCh  (3)  . 

• N)(TIO(2)  ♦ JPTR*N,M,  JTYP*LSTART*N2,  IFNCNM,L06I0*  lOTYP.NID* 

• LOCfLTYP* ITYP, IhLKOT*MOOE, lERR* IDES 
COMMON/LAbELS/STATRA (?,?00) .NLABEL 
COMMON/hASBLK/IbLOCK (2500 ) • NbLOCK , NB , NbRNCM 
DIMENSION  lALPH(b) 

INTEGER  BLANK ,TLE,0H,STATRA 

INTEGER  bITPuT*BlTG£T 

DATA  BLANK/lri  / , TE  E/ 1 MT/ * OM/ 1 HO/ 

DATA  I ALPH/IMA, IHS* IHS* IHI * 1H6* IHN/ 

DO  5 I»l  .6 

IF  (NEXT ( JPTR)  .Nt,  IALPH(I))  60  TO  20 
5 CONTINUE 
CALL  GNLE 

IF(JTYP  .NE.  5)  GO  TO  20 
CALL  STSRCH 

STATRA (2,L0C) sBITPUT (STATRA (2.LOC) .1 • 12) 

IF  (NEXT (JPTR)  .NE.  TEE)  GOTO  20 
IF (NEXT (JPTR)  ,NE,  OH)  GO  TO  20 
CALL  GNLE 

IF(JTYP  .NE.  2)  GO  TO  20 
CALL  search 

IF(ISHCH(2>  ,E(J.  1)  CALL  ERROR  (1  0 * NXT I U ( 1 ) *NXT  I D ( ? ) , T , T OMa  ) 

IF(ISRCh(1)  .EO.  1)  GO  TO  10 

idtyp*i 

CALL  STORE 
LOC*NID 
10  CALL  IMPTYP 

IF (bITGET ( lUTBL (3*LOC) , 10*3)  .NE,  4) 

% CALL  ERROR (39.NXTI0 ( 1 ) ,NXTID (2) , IDM3, I0M4) 

IF (BITGET ( IDTHL (3.LOC) * 1 *1  ) .EG.  1) 

% call  ERR0R(14,NXTID(l)  ,NxTID(?)  *II)M3,IDM4) 

IF (NEXT (JPTR)  .NE.  BLANK)  GO  TO  20 
NBLOCKsNBLOCK* 1 
I BLOCK (NBLOCK) *4000 ♦LOC 
RETURN 

20  CALL  ERR0R(7*IDM1*IDM2,I0H3*IDM4) 

RETURN 

END 
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SUBROUTINE  AuxIO  onnpnnln 

COMMON  A ( 1326) , 0(600). lOTML (11. 500), IN1TI0(3)  .LAST  TO (3) , ISPCM(3)  , OOOOnnPO 

• NXTIO (2) , JPTR.N.M, JTYP.LSTART ,N2, 1EnCNM.LOG ID, InTYP.NID,  00nnAn30 

• LOC.LTYP.ITyP.IBLKOT, MODE, lERR, IDES  OOnnnnAO 

COMMON/BASBLK/IBLOCk  (2500)  .NBLOCR  ,NB  .NbWNCM  0600(^050 

DIMENSION  lALPHl (6) . lALPM? (9) , IALPH3 (T)  OOonnnAO 

integer  BITGET  OnnnnnTn 

DATA  I ALPHl/lMR,  1M£,  IH).,  IMI  , IMN,  IMD/  OfinAnAflO 

DATA  IALPH?/lHB,lMA,lMC,IHK,lbS,lMP,lHA,IHC,lHE/  OAnABARo 

DATA  IALPh3/lH£,lhN,lMD,IMF,lMI,lML,lME/  flfinOAinn 

DATA  IBlank/im  / nnnoAlln 

IT«16-ITyP  06000)20 

IF(IT-2)  25,15,5  ooooo]3o 

5 DO  10  1*1,6  OOoOiilAO 

IF (NEXT ( JPTR)  ,NE,  lALPHl(I))  GO  TO  50  00n0o)50 

10  continue  00000)60 

GO  TO  40  00000170 

15  DO  20  1*1,9  OooOfllRO 

IF (NEXT (JPTR)  ,NE,  IAlPM2(I))  GO  TO  50  00000)90 

20  CONTINUE  00000200 

GO  TO  40  OOoOoPlO 

25  DO  30  1*1.7  0O00O220 

IF (NEXT (JPTR)  ,NE,  IALPM3(I))  60  TO  50  0oo0o?30 

30  CONTINUE  OOOOOP40 

40  call  GNLE  00O0O250 

IF(JTYP  ,NE.  2)  GO  TO  60  0onoo?60 

IF (NEXT (JPTR)  ,NE,  IBLANK)  GO  TO  50  0OO0O270 

call  search  OOOOoPflO 

IF(ISRCM(2)  .EO.  1)  call  ERROR(IO,NxTIO(1) ,NxtID(?) ,inM3,iDM4)  00000790 
IF(ISRCH(1)  ,E0.  1)  GO  TO  45  oooOoTOO 

I0TYP»I  0OO0O3I0 

CALL  STORE  00000320 

1.0C*NID  00000330 

45  CALL  IMPTYP  OOOOO340 

IF (BITGET ( lOTBL (3, LOC) , 10,3)  ,NE.  4)  00000350 

$ CALL  ERR0R(22,I0mi,IDM2,IDM3,I0M4)  Ooooo36o 

IF (BITGET(IDTHL(3,L0C) ,1,1)  ,E0.  1)  0000^370 

• CALL  error ( 14,NXTID( 1 ) ,NXTID(2) , IDM3, 10M4)  Ooooo3RO 

NPL0C)(*N8L0CX,1  0(,ooo39o 

IHLOCo (NBLOCK ) *2000*LOC  00000400 

RETURN  000004IO 

50  CALL  ERR0R(7.IDM1,10M2,I0m3,IDM4)  0000^420 

RETURN  00000430 

60  CALL  error (22, lOMl , I0M2, I0M3. I0M4)  0000O440 

RETURN  00000450 

END  00000460 
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INTEGER  FUNCTION  b I T6ET ( ILOC • IPOS # I to  I OTH ) 
DIMENSION  IMASK(]6) 
equivalence  rVAL*IVAL) 

DATA  1MASK/ZI,Z3*Z7.ZF,?IF,Z3E*Z7F,ZFF,Z1FF*Z3FF, 
• Z7FF,zFFF,ZIFFF,Z3FFF,z7FFF,ZFFFF,Z1FFFF,Z3FFFF> 
JLOC*IUOC 
NSMIFT«32-IP0S 
IF  (NSMIFT  ,EQ.  0)  GO  TO  5 
CALL  SHIFTR(JLOC.NSMIFT) 

5 VAL*AND( JLOC, IMASF ( IWIOTH) ) 

BIT6ET=IVAL 

RETURN 

END 
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INTEGER  FUNCTION  b I TPUT ( ILOC . I V AL i I POS ) 
EQUIVALENCE  (RNEto*NEW) 

NSMIFT»32-IP0S 

jval«Ival 

IF(N$HIFT  ,E0,  0)  GO  TO  5 
call  SMIFTL (JVAL.NSMIFT) 

5 RNEto»OR  ( ILOC.  JVAU 
BITPUT»NEto 
RETURN 
END 
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SUBROUTINE  BLKSTR 

COMMON  A (1326)  ,0(500)  • IDTBL  (ll*500)tINlTlO(3),LAc;Tin(3)  , T<;rCh  (3)  , 
• NXTIO (?) , JPTH,N,H, JTYP,LSTAPT • N? , I FnCNM • LOG I D • I Or yP • ^ TO, 
SLOCfLTYP, ITYP,IHLKOT,MOU£ ,IEPP, IDES 
COHMON/FunC/IFNCPA  (5*2?)  ,MAR6S*  lAPGS  (50)  ,FNCLOC  (*;)  ,NFn^  r 
C0MM0N/LIST/NLIST,NINTFC*  ISUfiLT  (4,200)  , INTFAC(60-i) 
COMMON/BASeLK/IELOCK (2500) • NHLOCK , Nti , NhPNCh 
integer  bITPUT,PlT6ET,FNCL0C 
IF  (HANGS  .EQ,  0)  RETURN 
00  100  Isl,HARGS 
lOSTATs? 

IC0L=9 

LOC«bIT6tT ( lARGS  < I ) * IC0L,9) 

NFNC»bITGET ( lARGS ( I ) , IC0L*3*3) 

IF(NFNC  .EQ.  0)  GO  TO  60 
IL0C«FNCL0C (NFNC) 

NAPGsbiTGCT (lARGS ( I ) « 1C0L*9,6) 

INDEX*BITGET ( I OTbL ( 3 . ILOC ) ,32,9) 

IF  ( INOk  X .EQ.  0)  GO  TO  60 
IPTR*1SUbLT (4* INDEX) ♦ (NARG-l ) /3 
JVAR«bITGET ( ISUHLT (3. INDEX  ) • 14, 1 ) 

IC0L*9*mO0 (NARG-l, 3) *b 
IF(JVAR  .to.  1)  IC0L=8 
IOSTAT*PITGET ( I NTF AC { 1 P TR ) , 1C0L,2) 

KPTPs(NAPG*5>/3 

IEXP*BIT6ET ( IFNCPA (NFNC,KPTP) , IC0L*1 , 1 ) 

IFdOSTAT  .EG,  ?)  GO  TO  60 
IFdEXP  «NE.  0)  GO  TO  40 
IFdOSTAT  «EQ.  1)  GO  TO  60 
GO  TO  80 

40  IF (BITGET dSUHLT (3* INDEX ) , 10 #4)  .Nt.  0)  GO  TO  90 
I NTF AC (IPTR) =BITPUT (INTFAC ( IPTR) ,?, I COL ) 

I0STAT«2 

60  NbLOCK*NBLOCK*l 

I8L0CK  (NBLOCK ) *?000-»LOC 
IFdOSTAT  .EQ.  2)  GO  TO  100 
80  NBLOCKsNBLOCK*! 

IBLOCl'  (NBLOCK)b1000«LOC 
GO  TO  lOO 

90  call  £RROR(55»NARG,10M?.IOM3,10M4) 

100  CONTINUE 
RETURN 
END 
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SUhPOUTiNt  bUlLU 

CO^’^'ON  A < 13?ft)  ,0  <S00)  • lOThL  (11*500)*INJTIO{3)  tLAciTln  (3)  , I«;PCH(3)  , 

♦ N)tT10{?)»JPTR*N*M,JTYP*LSTARTtN?,  IFnCSM  * L06 1 D 1 1 r)T  yP  . N TP  , 

♦ LOCtLTYP* ITYP* IbLKDT.MOOe , ItRP, lUtS 
COMMON/ inpout /NC ALL t IN, lOP 

iNTLGf.W  A,b,hLANK 
C0f'i^^0N/wASTE/H(7?) 

DATA  HLANK/Im  /,  iLt/lMC/, I7RO/1M0/ 

ItP«=0 
NF  IkSTsl 
NCONTUsO 
NCALL=NCALL* 1 
^0  continue 

IF(NFIPST  ,tQ,  1 •and,  NCALL  .NE,  1)  GO  TO  1 
PfcAO  ( IN,  10  0,  ENDS  10)  (bM),I  = lf7?) 

100  format (72A1) 

1 CONTINUE 

IF(NFIRST  ,E0.  1)  go  TO  ? 

IF  (b ( 1 ) ,EO,  ICE ) GO  TO  9 

IF(H(6)  .Nfc.  BLANK  .AND.  H(6)  .NE.  I7R0)  GO  TO  6 
60  TO  9 

2 CONTINUE 

DO  3 1*1,72 
A(I)*B(I) 

3 CONTINUE 
NF1RST*0 
NCHAR*72 
GO  TO  50 

6 NCONTU»NCONTU*l 
1F(NC0NTU  .LE.  19)  GO  TO  7 
IERR*1 

CALL  ERROR (A,I0H1 • I0M2, IDH3. I0M4) 

RETURN 

7 continue 

00  8 1*1,66 

8 A(NCHAR*I)*b(I^6) 

NCHAR«NCHAR,66 

60  TO  50 
10  IERR*2 

9 continue 
N*NCHAR 
RETURN 
END 
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SUB»0UTINE  CAA(ISTR»MSTR,ID) 

DIMENSION  ISTR(6) •I0(2),RI0(2)«J0(2) 
real  K.IBLANK 

equivalence  (JOditRiOd)) 

DATA  HASK/Z^EO 00 000/ • 1BLANK/Z400 00000/ 
IF{MSTR  ,GT.  6 .AND.  ITYP  .NE,  28)  CALL 
JDd)»0 
JD(2)*0 

o»o 

NCHARsQ 
5 J*J*1 

00  20  r«i,* 

NCHAR«NCHAR«1 

IF(NCHAR  .GT.  M$TR)  GO  TO  10 
rv«ANO  ( ISTR  (NChAR)  ,MASK  ) 

60  TO  15 
10  K«I6LANK 

15  1F(I  .EG.  IJ  60  TO  20 
NShlFT*8«d-n 
CALL  SHIFTfl(K.NSHlFT) 

20  RID(J)*0R(RI0( J) «K) 

IF  (U  .EQ.  1 ) GO  TO  5 
10d)»JD(l) 

ID(2)sJD(2) 

RETURN 

END 
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SUBROUTINE  CAI  ( I STR ♦ MSTR • I NT V AL ) 
DIMENSION  ISTR(IO) 

IF  (MSTR  .GT.  10)  GO  TO  20 

intval«o 

00  10  1*1*MSTR 
INT-ISTR ( I ) 

CALL  SHIFTR(INT,24) 

INT-INT-240 

IF  (INT  .£0.  0)  GO  TO  10 
INTVAL«INTvAL*1NT*10** (MSTH-I ) 

10  CONTINUE 

IFdNTVAL  .GT.  2*<»31-1)  GO  TO  20 
RETURN 

20  call  ERR0R(3dDMlfI0M2.10M3,IDM4) 
RETURN 
END 
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SUB«OUTIN€  call 

COMMON  A c 13?^*)  #0(500)  # I0T6L  (n#500)flNITlO(3)#LAsTIO(3)  , T<>PCH(3) 

• NXT  ID  ( ?)  • JPT»#N#M,  JTYP#LSTART  #N?,  IFnCNM#LOGIO#  InTvP#NTP># 

• LOC.LTVP, ITYP,IBL^OT#MOO£# I£PP# lots 
C0MM0N/5TPIN6/NTYP£,nsTH,ST«  (500) 

C0MM0N/LIST/NLIST#N1NTFC# ISUHLT (4,?00) * INTF AC (60n) 
dimension  IALPH(A) 

INTEGER  BLANK, tJlTPUT#«ITG£T 
DATA  IALPM/1MC,IHA#1ML# JHL/ 

DATA  LPA«/lH(/,hLANK/lM  / 

DO  5 I « 1 • 4 

IF (NE*T ( JPTR)  ,N£,  lALPH(I))  GO  TO  50 
5 continue 
IPTR»JPTR 
CALL  GNL£ 

IF ( JTyP  ,N£ . ?)  GO  TO  50 
CALL  SFARCH 

IFdSRCMUj  ,E(j,  1)  call  error  (?4,NXTI0  ( I ) #NxT  id  , TDm3.  T0M4  j 

IF(ISRCM(?)  .to,  1)  GO  TO  8 

10TYR«? 

call  STOWt 

L0C«NI0 

8 continue 

IFiLOC  ,tQ,  IFNCNM)  call  error  ( 10#NXT1D  ( I ) ,NXTI0(?)  , I0m:^,I0M4) 

IL0C«L0C 

NxT«N£xT (JPTR) 

IF(NXT  ,EQ,  LPAR)  GO  TO  IT 
IF(NXT  ,NE,  BLANK)  GO  TO  50 

IF  (HiTGt  T ( lUTtiL  (3#LOC)  # IH,  1 ) ,£0,  1)  GO  TO  20 
lOThL ( 3*LOC>  «ttlTRUT ( IOTML (3#LOC>  #I #1B) 

DO  10  1*UNL1ST 

If  ( lOThL  ( 1 #LOC ) .NE.  iSUHLTd#!))  GO  T 10 
IF  dOTHL  (2#LOC)  .NE,  I Sl»HLT  ( 2 , 1 ) ) GO  TO  10 
IDTBL (3#LOC) sHITRUT (lUTHL ( 3.LOC) #1,3?) 

LISTLC*! 

GO  TO  2? 

10  CONTINUE 

NL IST«NL IST^  1 

ISUHLT  d #NL 1ST ) «IUT8L (1 ,LOC) 

ISUHLT (?,NLIST)«IDTHL (?#LOC) 

lSUhLT(3#NLlST)*0 

ISuHLT(4,NLIST)=0 

IDTHL ( 3#LOC) sHlTPUT ( lOTHL (3#LOC) #NLlST#3?) 
call  error (5?# lUMl # lUH?. IOM3# I0M4) 

RE  TURN 

?0  L ISTLCsHiTGE  T (IDTBL ( 3#LOC) ,3?#R) 

??  CONTINUE 

IF  (HITGE  T dSUHL  T ( 3#LISTLC)  #5.6)  ,NE.  O) 

% call  ERR0R(?5,IDmi,IDM?#IDM3,1DM4) 

RE  Turn 
17  JPTR«IRTR 

ntype*i 

CALL  ExPP 

call  parse 

CALL  FnCSTR 

call  hlkstp 

IF (MODE  ,EQ.  1 ) GO  TO  48 
L0C*IL0C 

I NOE  XsMITGET (ILTbL ( 3#L0C) •3?,R) 

KLAS*HITGET ( iSUhLT ( 3, INDF  X)  #10,4) 

IF (KLAS  ,EQ.  I .OR.  KLAS  ,tO,  ?)  CALL  CALL2 
RE  TURN 

48  JPTR»IPTR-l 
CALL  CNVRT 
RE  T(iRN 

50  CALL  f RROR  ( 7.  lUMl  • IDm2,  IIIMJ#  U'M*  ) 

RE  TuhN 
END 
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ftftftftAAQO 
ftftftftA  1 ftO 
ftftftOft  ) 1ft 
ftftftftA) ?ft 
ftOftftA  1 Tft 
Aft  Aft  n 1 4ft 
A A ft  ft  A ) 5 A 
ftftftftA  ) 5ft 
AAftftA ) 7ft 
ft  A A A A ] ftft 
ft  A Aft  A ) Oft 
ftAAAA?Aft 
ftAAAA?lft 
ftAAftn??ft 
ftnAAA?3A 
ftOAAA?4ft 
ftAftAApKO 
ft  ft  ft  A ApKft 

ftftftftA?7ft 

A A A A A P8ft 
A A A A A ?Oft 
ftAAAAlftft 
ftftftftATl  ft 
ftAAftftXpA 
OAftAA-XTA 
AftftftA-^4ft 
AAftftATKft 
ft A A A ft  X5  ft 
AftAftAlYA 
ftAAftATRft 
ftAftftftlOA 
AAftAA4ftft 
Aft Aft A4 \ ft 
AftftftA4?ft 
ftAAAA43ft 
ftAAftft44ft 
ftAftftA4Sft 
AAftftA45ft 
ftftftftft47ft 
AftAftA48ft 
Aftftftft40ft 
ft A ft  A A^  ftft 
ft  ft  A A 1 A 
ftAftftA5?ft 
ft  A Aft  Amft 

ftftftftA^4ft 

ftftftAftS^Sft 
AftftA«t5ft 
ftftftftncTft 
Aft  ft  A ftOfl  ft 
AAAftftSQA 
AAAftA4ftft 
AAAftft*.^  A 
AAftftft4?ft 
ft  A ft  ft  A4  3ft 

AAP0A44A 
ftAAAA45ft 
AAAftft45A 
AAftftft^  7A 
ftftftAn^^AA 
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iNt  call? 

A ( 1 ,L(e)00)*I(ThU(U«^00)*lNlTlQ{3)  ,LA<;t  IP  (3)  , [«;rCw  (3) 

• ^^lTIUl?)•JPTM,^•M,JTYP,LSTA^<T•N?*IFNC^M^L(•^>IO•InTVP,^l^, 

• U'C.LTyP. IT  VP, IttLKOT ,HOOt • ItPP, lots 
iNTtGfcw  A,0,COPHA,PPAk 

INTtOfcP  hITPMT.HiTGtT 
OI^-lNSION  IALPP(13) 

DATA  PPAW/lH)/,COMMA/lM,/,n/lHl/,Irl/lhh/ 

DATA  I ALPH/ IHC • IMA*  IML * IML , Ih  • IMP  * IhO,  IHL * IMC • IHM,  1 HK  , 1 H ,1M(/ 

00  lb  J=1 ♦ } 3 

J*f* 

A (K)sIAlPM(J) 

IS  CCMiN'Ut 

oo  ?0  1=1*6 

Rf'Bj  V*4*I 
A (UK-3) =I  1 
A (AK-?) =IM 
IWP0=1  ♦ ( I-l  ) /A 
IP0S=H*I-3?*(IteP0-l) 

I VL*el TGET { lUTbL ( I wPD.LOC) • IPOS.B) 

A (KK-l)=bITPUT(0* IVL*H) 

IF ( I 6)  GO  TO  ?5 

?0  A(kk)=COPma 
2S  A(rk)sPPAP 

PtTUPF' 

F SD 


OOAftnnl n 
OOAOnnpn 

OOnAAAAft 

AAAAAaSA 

n000Aft6A 

oonnAATn 

noroAnAn 

OnonAAOfi 

OrtroAi on 
no  AO A 1 in 
ononm  ?n 

OAnpo  1 “ko 
A A 0 0 A 1 40 
AAnpAl so 
AAAAn  1 #;,n 

AAAAA 1 70 
OAOOaI bo 
p Aon  0 1 Qo 
noooopon 

AAOOAPl A 
nA0AA??0 
0AA0AP3O 
0A00AP4A 
AOOOApSO 
0AOAA760 
OAOnopTA 
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nonmnlo 

n 0 r z'  n n 

nftnorn30 

ftflOO<'n4n 

noonnnSt' 

nnftOAnftO 

onoftAATft 

onoftArtAn 

nnnAopon 

nnooAT  on 

oonfin^  10 

onoOAi ?n 

noAOoi 30 

oooooi 40 

oooooiso 

nonpA 1 ^0 

oooOoi 70 

pooooi 7S 

oononifto 

nooool 

pnoon^OO 

OOOpAPl 0 

PPPOP??P 

ppooo?3n 

pppnp?40 

pponp?^ft 

pPono?#»p 

onnoo?7P 

ftOOPO?RP 

OOP0P?90 

nopopioo 

0000031 0 
0000O3P0 
00000330 
0000O340 
00000350 
O0O0O360 
00000370 
0000037? 
00000374 
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SUBPOl'TINt  ChKIST 

A ( I3?fe)  •iMbOO)«IOTrnL(lUSnn),lNlTIO(3),LA«;TrO(3),  TSPCh  (3)  • 

• ^)^TIO(?)*JPTH•^•H^JTYP•LSTA«T•^?•IF^C^^,LUlJIl>*I^TYP*^!n, 

• LOC  #LTyP*  I TYH,  IhLoOTiMOOt  , Itf-P*  lUt  S 
DiHfcNSION  IQUIV(IOO) 

(UUI VAL&NCb  ( lOUlV  ( 1)  «A ( 301 ) ) 

iNTtGfP  bITGtT 

NQUIV»0 

DO  30  lsl«NlD 

lOTHL (8. I ) »0 


IF (HITGt T { lOThL (3. 

i 1 

.14. 

1 ) 

• tu. 

1 ) 

GO 

TO 

?0 

IF (biTGET 1 lUTbL  <3. 

I) 

.16. 

1 ) 

.tu. 

1 ) 

60 

To 

b 

IF(eiT6ET(IC)THL(3. 

I) 

. 1 ? . 

1 ) 

.EG. 

1 ) 

GO 

Tu 

lb 

GO  TO  10 

S 10TbL(e.l)«l 

10  lF(BlT6FT(I0TnL(3. 

I) 

.17, 

1 ) 

.Nt  . 

1 ) 

GO 

TO 

30 

NOUl VaNOUl 1 

IF  <NO«JlV  .67.  100)  60  TO  00 

lOUlY(KQUlV)sI 

60  TO  30 

IS  IF  (blTGtT  ( lOThL  (3#  I ) *1S,  1 ) .tO.  0)  GO  T(«  JO 
?0  IOTnL(H,I)«l 
30  continue 

IF(NOUlV  .EO.  0)  PETUHN 
00  SO  J«] «NOUl V 
NXOV*lUiiIV  U) 

3S  NXQV*IOTHL (10*NXOV) 

IF(NX0V  .eg.  lOlilV(J))  GO  TO  SO 
IF (IUTRL(8,NX0V)  .EO.  0)  GO  TO  3S 
lOVaNXQV 

PTYPE*bITGET  (Il)TbH3*lOV)  ♦ 10.3) 

40  NXOV«IUTHL  aO.NXOV) 

IF (NXOV  ,E0,  IGV)  GO  TO  SO 

IF (6ITGET (lOTbL (3.NX0V) « 10. 3)  .NE.  KTYME)  60  TO  4o 
I0TbU8.NX0V)«l 
GO  TO  40 
SO  CONTINUE 
RETUPN 

60  CALL  ERR0R(94«I0N1.I0H?.IDm3.IDH4) 

RETURN 

END 


SUriPOUTINt  CLASS  oonnnnlo 

COMMON  A ( 13?M  .O(S00ltIOTHL<ll.S00I.INITlU(3),LASTin(3)  . TSPCM(3)  , OOnnnf'?(l 

• NXTIO(?)tJPTPtN.M,JTYP,LSTAPT,N?,IFNCNM,LOOIDtInTvP,Nin,  0nnntln3n 

• LOC.LTYP.ITYP.IMLAOT.MOUt.ItPR.IOtS  OOCnnoAn 

dimension  KALP(Ab)  «NSUC  (AM)  .NFAL  (48)  ,KOtC  ( 10)  tNF  (31  nfw^(^<^nS(' 

INTEOFm  a (innortnAo 

DATA  KDEC  ( 1 ) .KUE  C (?)  ,MIEC  ( 3)  tNOEC  (4)  ,KUt  C (S)  . nnnnnnTo 

1 aOEC  (6)  ,KO£C  ( 7)  .AOEC  (8)  .RDtt  (9)  ,a(jEC  ( 1 0)  on/ionoAn 

? /Iho  t IHl  , ]M?,  lM3t  IM*.  IHK,  1M8,  IM7 . 1M«,  1M9/  OOnl'nRPO 

DATA  KF  ( 1 ) ,kF  (?)  ,RF  ( 3)  ,nF  (4  1 ,RF  (5  ) ,KF  (6  ) ,RF  ( 7)  ,KF  ( P ) OPnOMno 

I / IMF  , IMU.  IMN,  IMC,  IMT  , IMI  , InO.  IHN/  f)0(innlln 

DATA  RPLNK.RLPAP.RRPAP.NFO/Im  , 1 m ( , 1 m ) , 1 m = / nrn(ln)?0 


DATA 

• 

/ 

oonoKi ip 

DATA 

KALP 

( 1).kalP(  ?),kalp(  3) 

♦ KALP 

( <») 

/IMI 

• Ihf .ink,) hG/ 

ponPr 1 40 

DATA 

KALP 

( S)tK*LP(  8),K4LP(  7) 

♦ KALP 

( F-) 

/IHO 

•IHt.1H0,1H(/ 

Kp  ftP  n 1 so 

DATA 

KALP 

( 9) .RALP (10) ,RALP (11) 

♦ KALP 

(1?) 

/IHC 

♦ IHA , 1 HO, 1 HN/ 

OApor)  1 bn 

Data 

KALP 

(13) ,RALP(14) .rALP(15) 

♦ KALP 

( \t] 

/IHM 

♦ IHm, IHP, IMR/ 

ppppni 70 

DATA 

KALP 

(17) .RALP (lb) ,RALP (19) 

♦ KALP 

(?0) 

/IHE 

• 1H4 , IHD, IHL / 

nnpool AO 

Data 

KALP 

(?1) .RALP(??1 ,RALP(?3) 

♦ KALP 

(?<») 

/IHT 

• iHw, IHF  IHO/ 

nnopni po 

DATA 

KALP 

(?5) .RALP(?b) ,RALP(?7) 

♦ KALP 

(?p) 

/I  HU 

♦ IHO, IHI  )HA/ 

ponp^pno 

Data 

KALP 

(?9).RALP(30).RALP(31) 

♦ KALP 

(3?) 

/I  HO 

• 1 Hu,  } HW,  1 hS/ 

1 p 

DATA 

KALP 

(33).RALF(34),RALP(3b) 

♦ KALP 

(3b) 

/IMT 

, IH.i,  IHE  , 1 HM/ 

pppOn??n 

DATA 

KALP 

(37) .RALP(38) .RALP(39) 

♦ KALP 

(40) 

/IHD 

♦ INF,  lH)f  , )MQ/ 

ppppft?30 

DATA 

KALP 

(4 1 ) ,R4LP (4?) ,R alp (43) 

♦ KALP 

(44) 

/IhB 

♦1HA,1MI ,)HA/ 

PpAPft?AP 

Data 

KALP 

(4S) .RALP(4ft) ,RALP(47) 

♦ KALP 

(48)/1hl, 

IHP,  1 HO,  1 HO/ 

PAppp?Sp 

DATA 

KSDC 

( 1).RSUC(  ?),RSUC(  3) 

♦ KSUC 

( 4) 

/ 2 

, -A.-lW,  S/ 

p p p p p?bn 

DATA 

KSl^C 

( S ) .RSUC  ( b)  .RSliC  ( 7 1 

♦ KSUC 

( b) 

/ b 

♦ 7,  8,  -«•/ 

ppp0p?7p 

DATA 

KSUC 

( 9)  .RAuCdO)  .RSltC(ll) 

♦ KSUC 

(1?) 

/ 10 

♦ -‘J,  1?.  -7/ 

PPpPAPRP 

DATA 

KS»'C 

(13) .RSUC (14) ,RSUC (IS) 

♦ KSUC 

(lb) 

/ 14 

♦-?F,.??,  17/ 

opaPa^Op 

Data 

KSUL 

(17) .RSUt (lb) .RSUC (19) 

♦ KSUC 

(?0) 

/ 18 

• 1 •-PO/ 

ppppAipn 

DATA 

KSl'C 

(?1 ) .RSUC (??) .RSuC (?3) 

• KSUC 

(?4) 

/ -P 

• -n, 

PAponin 

DATA 

KSnc 

(?P)  .RSUC  (?M  .KSilC  (?7) 

• KSUC 

(?F) 

/-31 

♦ ?7,-?4,.?7/ 

PPPPA-)?0 

Data 

KSUC 

(?9) .RSUC(30) .RSUC(31) 

♦ KSUC 

(3?) 

/ 30 

• -?1,-1?,  ■»■»/ 

PPaPaIIO 

DATA 

KS»»C 

(33) .RSuC (34) .RSUC (3S) 

♦ KSUC 

(3b> 

/-lO 

♦ -3fl,  ‘»A,  -k7  / 

PPPPplAP 

DATA 

KSDC 

(37)  .RSUCOb)  .RS(iC(39) 

• KSUC 

(40) 

/ 38 

, - 1 s , - 4 , - ? b / 

pppppiSP 

DATA 

KSUC 

(41). RSUC (4?) .RSUC (43) 

• KSUC 

(4a) 

/ 4? 

P P P P P Ibp 

data 

KSUC 

(4S).RSUC(4h).RSUC(47) 

• KSUC 

(4h) 

/-?3 

,47,4»=,-3?/ 

pppppl7p 

Data 

kFal 

( 1 ) .RF  AL  ( ?)  ,RF4L ( 3) 

♦ KFAL 

{ 4) 

/ 4 

♦ -^,-3b,  o/ 

PPppAlAp 

DATA 

kFAL 

( S)  .RF  AU ( b)  .RFAL ( 7) 

♦ kF  AL 

( H) 

/-3b 

♦-3b, .lb,  -3/ 

pppppi9n 

DATA 

kFal 

( 9)  .RF  AL ( 10) .RFAL (11) 

,kF  AL 

(1?) 

/ lb 

♦ n ,-7b,  n/ 

PPPPPAPP 

DATA 

Kf  AL 

( 1 3)  .RF  AL ( 1# ) .RF4L ( IS) 

• KFAL 

(lb) 

/-3b 

• 18, -3b,  ?3/ 

ppppAA  1 P 

DATA 

KFal 

(17) .RFAL(lb) .RFAL(19) 

• KFAL 

(?0) 

/-3b 

• 21,  ?n,.3b/ 

pPnPPA?0 

DATA 

KFAL 

(?1 ) .RF  AL (??)  .RFAL (?3) 

• KF  AL 

{?•*) 

/ ?? 

,-lb,  ?b,  ?b/ 

ppapaa  ip 

DATA 

K K ttL 

(?S)  .Rf  AL (?h) ,rF4L (?7) 

• KFAL 

(?b  » 

/-jb 

• 31,  ?A, 

PPrPAAAO 

Data 

K F AL 

( ?9) .RFAL ( 30) .RFaL ( 31 ) 

♦ kF  AL 

( 3^) 

/-3b 

,-3b,  3?,  lA/ 

p P pp  A A 8p 

DATA 

KFAL 

( 33) . RF  AL ( 34) .RF AL ( JS) 

♦ kF  AL 

{^^) 

/ J4 

,-3b,  41,  TQ/ 

PPAPAAbP 

DATA 

kF  AL 

(37) .rFal (3b) .RFAL (39) 

• kF  AL 

(mO) 

/-3b 

•-18,  An, -lb/ 

pPppAA  7p 

DATA 

KFal 

(41 ) .RFAL (4?) .RF«l (43) 

♦ kF  AL 

(4<a  ) 

/ 44 

• 41, -lb,  aA/ 

PPaPaaRO 

DATA 

kF«l 

(*S),RF4L(4h).RF«L(47) 

• KF  AL 

(4‘  ) / 4F^ 

-36, -lb, .lb/ 

pnpppAOp 

LTvk 

= C 

p p p p p*;n  p 

IPTf- 

= 7 

PPPPaAI  p 

Cunt  INi't 
JSAVE  =NmLNK 
JSk  = 0 
ISY  =0 


1(Y 


JEQsO 

OftAf»rtK6ft 

JCHAsO 

nAAflA^7f< 

JhOLL*0 

OAAAA««n 

UO  JalPTP.N 

nn  AA  A^9n 

jCh*A ( J) 

0AAnf*6AA 

If  .fcO.  RHLS6»  ^0  TO  ?b 

oaaaaaIa 

6 

IF  (jHOLL  .LE,  01  tjO  TO  1? 

AOaOaaPA 

7 

00  8 L*l*10 

nAnAA63A 

1F(JCM  ,tO,  K0FC(L)1  (»0  TO  10 

AAAAA64A 

H 

CONTiNuK 

nr AAAASn 

IF  < JHOLL  ,Lt.  1)  ^0  TO  11 

00aA/n460 

9 

IF  (JCh  ,EQ.  Kh)  00  TO  3? 

AOnnAATA 

GO  TO  11 

AAAAAAAA 

10 

JHOLL*JhOLL* 1 

A A A A AA9 A 

60  TO  ?b 

AAAA«7AA 

11 

jholl=o 

AAAAA710 

1? 

1F(JCH  .to,  KLPAP)  00  TO  ?0 

AAAAa7?0 

13 

IF  (JCh  ,tu,  KftFAW)  60  TO  18 

aaaaat3a 

14 

IF{JCm  ,60,  KCMA)  60  TO  ?? 

AAAAr740 

1^ 

IF  (jCh  ,tO,  K60)  00  To  ?3 

AAAAA75A 

16 

iF(jCH  ,60,  k<;ls«>  60  TO  i*l 

AAAAA76A 

17 

IF  (JCH  ,60,  6AST6)  60  TO  ?l 

AAAAA77A 

00  TO 

OAAAA780 

lt» 

J^MsJSn-l 

AAAAATPn 

IF (JSk  .OT,  0)  00  TO  ?b 

AnAAAOAA 

1*> 

lStr«l 

AAAAOfll A 

00  TO  ?6 

OAArAa?n 

^0 

JSt»*JSK*r 

aaaaap3A 

JHOLL »l 

0AA0AP4n 

00  TO  ?b 

noAnrP^A 

?? 

IF  (J9»»)  30*30*?1 

AAAAr»06A 

?3 

IF  (jSii  .JT.  0)  GO  TO  3? 

AAAAAP7A 

ih 

JtO*l 

OAAAAOPA 

?*> 

IF  (IS^  ,6T,  0)  00  TO  ?7 

AA«ft^OQA 

?t 

COHTINUk 

AAnAftQAA 

GO  TO  ?H 

AAAA<»Ol  n 

?7 

JSAVt  sJCH 

0AAftrtO?0 

JF»J 

AAAAA03A 

?« 

IF  (JFO  ,L6,  0)  00  TO  3? 

AAAAAQ4A 

JTP«1 

nAAAAOSA 

00  TO  bb 

AAAAft06A 

30 

JChA»1 

AAAAa07A 

IF ( jtO  ,L6 , 0)  GO  TO  J? 

aaaaaopA 

31 

JTP*17 

AAAAaQQA 

00  TO  bb 

A A A A 1 A A 

3? 

J»l 

A A A A 1 A 1 A 

!<;>,«  IFTP 

AAAAT  a?A 

J3 

JCH»A  ( IS»0 

AaAaI a3a 

IF  (JC"  ,60,  KHLN6)  00  TO  37 

A A A A ^ n4  A 

34 

IF  (JCh  ,tii,  KALP(J))  00  TO  3H 

AAAAI aPA 

3S 

J = A F AL ( J » 

aaaaiaha 

IF  (J)  39,39.34 

AAAAI a7A 

36 

J««SOC ( J) 

AAAAI APA 

If (J  .Lt*  0)  HO  TO  39 

AAAAI aQA 

37 

IS»«1Sh* 1 

A A A A 1 ) A A 

( IS*.  ,Lt  , N)  GO  TU  3^ 

'>  ft  f'  0 1 1 1 n 

jCf'a^fLN^ 

ft  ft  ft  ft  1 1 ? ft 

GO  T(  3S 

ft  ft  ft  ft  1 1 3 ft 

3** 

JTP«-J 

ft  ft  ft  M 14ft 

IF  { jT>^-3)  SS.4S.40 

ft  ft  ft  ft  1 1 Sft 

40 

IF  (JTP-6)  S5. 43.41 

ft  ft  ft  ft  1 1 ^ ft 

4 1 

IF  { JTP  .LT , lO)  00  TO  SS 

ft  ft  ft  ft  1 1 7 ft 

4? 

IF  { JTP  - ?3)  47,47,SS 

ft  ft  ft  ft  1 1 4 ft 

43 

00  44  L=1.10 

ftftftft  1 1 Qft 

IF (JSAvt  ,fcO,  KOtC(L))  GO  TO  SS 

ft  ft  ft  ft  1 >ft  ft 

44 

COM  iNUt 

ft  ft  ft  ft  1 ? 1 ft 

LTrPxg 

ftftftfti ??ft 

JTP»1^ 

ftftftft!  P3ft 

IPTWsjp 

ftftftfti  ?4»ft 

GO  TO  S 

ftftftftl?*^ft 

*»S 

IF jjCHA  .tt,  0)  00  TO  SS 

% 

ftftftfti ?Sft 

JTP«4 

w 

ftftftfti ?7  ft 

oO  TO  SS 

ftftftfti 90ft 

47 

L = H 

ft  ft  ft  ft  1 POft 

GO  TO  S? 

ft  ft  ft  ft  1 1 ft  ft 

4fi 

L = L*1 

ftftftfti  lift 

IF  (L  .OT,  N)  GO  TO  SS 

ftftftfti  1 ?ft 

40 

IF(A(L)  .to.  P^hLNf')  GO  TO  4e 

''  ft  ft  1 lift 

*>0 

IF(A(L)  .80.  KFdSw))  GU  TO  S3 

ftftftfti 34ft 

IF  ( ISw  .t(J.  1 ) GO  TO  4H 

ftftftft 1 3Sft 

be 

IS*,el 

ftp  Aft  1 lAft 

00  TO  SO 

ftftftfti 37ft 

S3 

ISmxISh.I 

ftftftfti  3fl  ft 

IF  (iSto  .Lt.  H)  GO  TO  4H 

ftftftfti 3Pft 

S4 

JTP*31 

ft^ftOI 4ftft 

ss 

I TVPsjTP 

ft  A ft  ft  1 4 1 ft 

Pk  TUPN 

ft  A Aft  1 4 ?ft 

FNO 

ft  ft  ft  ft  1 4 3 ft 

SURROUTiNt  CHPftPF 

OI1ENSION  IROLC<(?flO:) ♦TSUqi 2,100) 

REHINO  3 

NSUB=0 

NC=0 

□0  5 1=1,100 

REftO(9,3,END=7)  lJU3(l,n,lSUB{2,n 
3 PORHAT(ftt*,42) 

NSUB=NSUB>1 
5 continue 

7 IP(NSU9  .£Q.  C>  RETUPN 
DO  40  L=l,12 
NOOE=L-l 
NROLL=0 
DO  10  1=1  ,100 

REA0<3,3,EN0=15)  IROL'“<a,I),  IPOLCK  (2,1  ) 

NKOLLsNROLL^l 
10  CONTINUE 

15  IPCNROLL  .EQ.  0)  GO  TO  35 
00  30  J=1,NSUB 
DO  20  K=l,NROLL 

IF(IROLCK(l,K)  .£Q.  ISUB(1,J)  .ANO.  IROLCKC2,<)  .E^l.  ISU3(2,J)) 

• GO  TO  30 
20  CONTINUE 

NC=1 

NRITE(6,25)  ISUB(1,J) ,ISUP(2, J| ,HOOE 
25  POPHAT (SX  ,12H  SUBROUTINE  ,A4,A2,53H  hAS  NOT  CALLED  IN  THE  ROLL  CAL 
•L  NODE  POR  HOOE  INDEX  ,13) 

30  CONTINUE 
GO  TO  40 

35  NRITE(6,36)  MODE 

36  P0RMAT(6X,65H  NO  SUBPQUTINPS  NERE  CALLED  IN  THE  ROLL  CALL  MODE  POP 

• MOU^  INDEX  ,13) 

NC  = 1 

40  continue 

IP(NC  ,EQ.  0)  MRITE(6,50) 

50  FORMAT (6X,50H  ALL  SUBROUTINES  MERE  CALLED  IN  THE  ROLL  CALL  MODE) 
RETURN 
END 


LAt;Tin  (•?) . i<;RrH(3)  , 
. InTYR.*'!!^, 


SUHROUTINt  CNVRT 

COMmOS  a ( 1 3?6) ,U(500I.IUTPL(11.600)#IN1TIU(3). 

• N»TIO(?),JPTR,N,M,JTYPtLSTART.N?,lFKiCNMtLOGIO 

• LOC.LTyP, ITYP, IbLKUT.MOOt , ItPR, lUtS 
COPMON/STRING/KTYPt .NSTH.STP (500) 

dime  SSI  ON  lOP(P)  .IL0G(?,7)  ,JL0G(3.?)  .IFUNCl  ( 6 ) . I F i iNf ? I A ) 
1 IFUSC3(6) 

INTElitu  STR.A,D.t(3UALS.0tCPT 
INTEGER  BITPUT.bITGET 

Data  IOp/Ih»,ih.,ih/,ih(,im),ih,,ih«,im«/ 


nn  n 0 n ft  1 

ftftftftftft?0 

ftftftftft«3ft 

flftAftftft40 

ArtOftftftSn 

ooftftftft^n 

OftftftftftTO 

ftftftftftnftn 

ft  ft  ft  ft  ft  ftQft 
ftft  ft  p ft  1 ft  ft 


Data  IL0G/lHL.IPT.lMLtl«E.IHO.lMT.IHGtlHt,IHE,IPO,lHN,iHF.lH0,iHR/nrn0M10 


10 


Data  JLOG/lMA,lhNtlMU,lHS,lrtOtI)^T/ 

ft  ft  ftft  ft  1 ?ft 

DATA  lEuNCl /InO. IMl , l«Pt 1st . IHA, IML/ 

ftPftftftl  “^ft 

Data  If  use?/ IMG. IMl , ImD,  IMP,  IMR,  imE/ 

ft  ft  ftft  ft  1 4ft 

DATA  IF)JSC3/1MD,  IMl  , IHC,  IMO,  IMM,  IMP/ 

ftftftftft^Sft 

DATA  DECPT/IH./ 

ftftftftft  1 frO 

DO  S J=1,JPTH 

ftftnpft 1 7ft 

0 ( J) =A ( J) 

ftftftpftl  «ft 

J=JPTP 

pftftftnlQO 

Do  100  K=1,NSTR 

ftftftftnPftft 

IF (STP(K)  ,GT.  0)  GO  TO  *0 

ftPftnft?lft 

DO  10  1=1,8 

ftftftftft??0 

IF(STP(K)  ,St.  -I)  60  TO  10 

ftftftOftPin 

DfJ«l)=IOP(l) 

ftftftftft?4ft 

N3=l 

ft  ft  ft  ft  ft  ft 

IF (I  .NE.  8)  60  TO  100 

ft  ft  ft  ft  ft  7^  ft 

0 ( J,?) =IOP ( I 1 

ftpftftft?7ft 

N3  = ? 

ftftftOftP^ft 

60  TO  100 

ftftftftftPOft 

CONTINDE 

ftftftPft7ftft 

00  IS  1=1,7 

ftftftOftllft 

L=I»8 

ftftftPft7?ft 

IF (STR (K ) .SF . -L)  GO  TO  15 

ftftftftft33ft 

0(0»1)=DECPT 

Pftftftft74ft 

0 ( J»?) =ILOG (1,1) 

ftftftftftl^ft 

0(J.3)=ILDG(?.I) 

PPftftft7^ft 

0(J.*)=DECPT  ‘ 

ftftftftft77ft 

N3=* 

ftftftftft^Aft 

GO  TO  100 

ft  ft  ft  ft  ft  "^Qft 

CONTINUE 

ftftftPft4Pft 

00  ?0  1=1,? 

ft  Pft  Pft4  1 ft 

L=I,15 

ftftftftft4?ft 

if(STR(K)  ,ne.  -l)  go  to  ?0 

ftftftftP47ft 

0(0»1)=UECPT 

ftftftPft44ft 

0 ( J»?) = JLOG (1,1) 

Pftftftft4*>0 

D(J«3)=JL0G(?.I) 

Pftftftft44ft 

D(J,4)=JL06(3.I) 

Pftftftft47ft 

D(J.5)  =()ECPT 

PPftftft4Aft 

N3  = 5 

rPftPA4^ft 

60  TO  100 

ftftftftotftft 

CONTINUE 

ftftftftr  A 1 ft 

KL»1 

ftftftft  r>A?ft 

IF(STR(7)  ,E0.  -0)  KL=? 

ftftftftft«.3ft 

IF(STR(K)  ,EO.  -10000)  KL=* 

ftft0ftftA4P 

1F(STB(8)  .to.  -?0000  ) Kl.  = 3 

ftftftftftASr 

20 


60  T0( 110,?5t30.36l .KL 

n n n n 

?s 

00  21  1=1,6 

nr>nonc.7f) 

D( J, I ) =IFuNC 1(1) 

Aft 

21 

COMlNUt 

ftftftftftSPft 

N3«6 

Aftonn^on 

GO  TO  100 

nnnAAAl n 

30 

00  32  1=1,6 

AAAnA6?ft 

D ( J, I ) =IFUNC? ( I ) 

AAftAAf.3n 

3? 

COKT iNUt 

ft  AO  A A 44  ft 

N3»6 

ftftftftftASft 

GO  TO  100 

ftOoftO^frO 

35 

DO  37  1=1,6 

ftftftftft^TO 

0 ( J»I ) =1FUNC3 ( I ) 

ftft0fto4AA 

37 

CONTINUE 

ftftftft049ft 

N3  = 6 

ftftftftftTftft 

GO  TO  100 

AAftOftTlft 

♦ 0 

IF(STR(K)  ,LT.  1000001)  GO  TO  110 

Pftftft/'7?n 

N3*STR  (M /I  ,E6 

nnnftft73n 

NLOC=(STR(K)/10000) *10000 

0ftftftft74ft 

JPTR*5TR (K) -NLOC 

ftftnoATSft 

)'L0C  = STW(K)-N3*1.E6 

ftftftftA760 

IF(KLOC  ,LT.  *00000  .OR.  KLOC  .GT. 

500000)  60  TO  qn 

ftftOftft770 

IML= INLOC-4  00  00  0) /I  0000 

ftftoftft77? 

IF(IML  .EO.  S)  go  to  60 

0ftftftft774 

00  *S  1=1, N3 

ftftftftft7A0 

0 ( J, 1 ) =NExT ( JPTR ) 

ftft0ft«79ft 

45 

CONTINUE 

ftftftftftRftft 

60  TO  100 

ftftftftftA  1 ft 

50 

DO  55  1=1, N3 

ftftftftftP?ft 

IwR0= ( l-l ) /*♦ 1 

ft0ftft0R3ft 

IP0S=8*I-32*(IWR0-1) 

0nftftoQ40 

ICNAPsbITGET  ( lOTbL  ( 1 1.RO  , JPTR  ) , IPOS 

• 8) 

ft  ft  ft  ft  0 QSft 

55 

0 (J,l 1 =bITPUT (0, ICHAR,8) 

ftftftftoR4ft 

GO  TO  100 

ftftftftftPM 

60 

KPTR=JPTR-1 

ftftoftoo4? 

00  65  1=1, N3 

ftftftftoP63 

65 

0(J.I)=A(5PTR»I) 

OftftOoP44 

100 

J= J*N3 

ftftOftOQ7ft 

Ns  J 

ftftftftORPft 

DO  105  I*nN 

ftftftftOPQft 

105 

ftftOftoOftft 

peru^^N 

ftftOftoQlft 

no 

call  tPPOft (?3, JDMl , IDMp, IUH3,I0M%) 

ftftftftoO?ft 

RETUPN 

ftftftftOQlft 

END 

ftftftftftOAO 

SUhBOl.TINE  CfiH 

COMMON  * I 1 3?M  ,0  (%00)  . IOT«L  (ll.?>0n).IMTlU(3|,L*‘:TinMl  , T^PCH  (3)  , 

• N»T  10(^1  .JPTB,n,M,jTVP,lSTAMT.N?.II-  NCNM.COGID.  iDTvP.Mn, 

• loc.lttp, I TYP, iBLKOr.MOoe . iebb.  lots 
dimension  IOIm (3) , Ialpm(Ni 

INTtGEB  SLASM.COMMA.ULANA . A ,BPAP 

INTE.6EP  BI  TPlIT  ,M  I TGt  T 

Data  ialp«/1«C. ImOi  Imm, ihm, imo. Ihn/ 

Data  slash/ im//,COmm«/ im,/ .mlanr/im  / ,BPAB/ im) / ,loap/1 h ( / 

DO  10  1*1.6 

IF  (Nt«T  t JPTBI  ,Nt.  IALPH(D)  go  to  60 

10  continue 

IF (Nt XT (JPTR)  .to.  SLASH)  GO  TO  IS 
JPTB*JPTR-1 
10  NXTID(1)»BLANK 
NXTID(?)»BLANR 
60  TO  ?0 
15  call  GNLE 

IF(A(JPTB-1)  ,tO.  SLASH)  GO  TO  1? 

IF(jTtP  .NE.  ?)  GO  TO  60 
IF (NEXT (JPTP)  ,nE.  SLASH)  GO  TO  60 
00  call  COMSCH 

IF(ISBCH(3)  .EO.  1)  GO  TO  05 

IDTVP*3 

CALL  STUPE 

icmloc=md 

GO  TO  07 
05  ICMlOC*lOC 

LSTL0C*IUTBL (B.LOC) 

07  call  GNLE 

IF ( JTYP  .NE.  0)  60  TO  60 
CALL  SEABCh 

IF(ISPCH(2)  .EG.  1)  CALL  ERBOB(10,NXTID(1) ,NXTID(?) .IDMT.IDma) 

IF(ISRCH(1)  .EG.  I)  GO  TO  08 

IDTYP*1 

call  STORE 

L0C*NID 

08  IF (BITGET ( lOTBL (3.L0C) , 1?, 1 ) .EG.  1) 

t CALL  EHROB  ( 17.NXTIDU  ) ,NXTID(0)  , IDM3,  IDMa) 

IF (BITGET ( IDTBL (3.L0C) , 16, 1)  .Eo.  1) 

• CALL  ERR0R(53.NXT1D( 1 ) ,NxTID(0) , IDM3, IDMA) 

IDTBL (3.L0C) •BITPUT ( IDTBL (3.L0C) .1,16) 

ICMSI7*1 

IF (NEXT (JPTR)  .NE.  LPAR)  60  TO  40 
IF (BITGET ( IDTBL (3. LOC) , 1 , 1 ) .NE.  01  00  TO  80 
1*0 

35  1*1.1 

CALL  GNLE 

IF (JTYP  .NE.  S)  GO  TO  60 
IDIM ( I ) *N0 
ICMSlr*ICMSI7»N0 

1F(N0  .GT.  0»»17-1)  CALL  ERROR  ( 8 , I DM'.  , I DM?  , I OH3  • TOmr  , 

IF(N?  .LE.  0)  CALL  ERP0B(8,I0MI,IDM?,I0M3.I0M4) 

IF (NEXT (JPTR)  .EG.  COMMA)  GO  TO  35 
IF(*(JPTR-1)  .NE,  RPAR)  go  TO  60 


nnonnnlo 

nftonno?o 

oopoopSo 

nnoppp^n 
nonopAfen 
nnopppTn 
ppnnppPo 
OnPppnQn 
ppppp) nn 
pppppi 1 n 
opppp 1 ?n 
no  ppr ] ^0 
PPPP  P 1 4P 

nopopisn 
n p n n p 1 
PPPOPT  70 

PPAPn) 

PPPPPI QP 

ppppp?no 

ppppppin 

pnppp??n 

ppppp?3o 

OOPOP740 

ppppp?^n 

nnppp?fin 

PPPPP?7P 

PPPOP^ftO 

pP0PP?9n 

OPftOP7PO 

ppppp^in 
ppnpp3?n 
0Pn0P730 
nnnop340 
0PPPP7S0 
popoP3f*n 
onoop77n 
OOOPnIAn 
OPn^plQo 
oppon4no 
pppn  p4 1 n 
pppoP4?n 
noppp43n 
0PnPP44P 
ppppP4^n 
nppop4f 0 
ftpppP47n 
pnpPp4AP 
nnnpP49P 
nnpppAoo 

PPPPp^lO 

nppopA?n 

ftPPPpA3ft 

nnnnpS4n 

ppnnpASo 


^*NEXT  (JPT*<) 

lUTHL ( 3, LOCI sHlTPOT ( 1 OThL ( 3 • LOC ) • 1 «1 ) 

IF  ( I 3)  GC  TO  hO 

IDTwL  r J,L0C)=HITHUT ( I0T8L  <3#LOC) ,I *7) 

DO  30  J*1,I 

30  IDTbL (4*J,LOC)sIOI«(J) 

40  IF (lOThL {o*1CmL0C)  ,tO,  ft)  GO  TO  4$ 
lDTRL(«tLSTLOC)*LOC 
GO  TO  47 

4S  IDTRL  <H#  ICMLOC)  *U)C 

♦7  lOTBL (5* ICmlOC)*IuT8L (5, ICWLOC > ♦ 1 CMS I Z 
IDTbL  (‘i*  ICHLOC  ) *LOC 
lUTBL  (<y*LOC)  =ICMLOC 
LSTLOCsLOC 

IF(A<JPTR-1)  ,feO.  COMMA)  GO  TO  ?7 
IF<A(OPTR-n  .Nf.  SLASH)  GO  TO  50 
lOTHL (8.L0C) sIUTbL (fl*lCML0C) 

00  TO  l*j 

50  IF  (NE)tT<JPTR)  ,NE*  HLANK)  GO  TO  60 
lOTbL (b.LOC) sIUTbL (8* ICMLOC) 

RETURN 

60  CALL  kRROH(7*IDMl*IDMP,IOM3*IOM4) 

RETURN 

HO  CALL  EkROR  ( 14,NxTI0U  ) •NXT10(2)  # IDM3,  IDMa) 

RETURN 

END 


OrAAnSTO 
OAnnA*^  Aft 

OftftftftAQft 
ftftftftAAftft 
ft  A Aft aA  I ft 
ftAAftAA?ft 
ftAAAAA3ft 
ftftAAAA4ft 
AAAOAAAft 
ftft  ft  ft AA Aft 
ftftAAAATft 
AftAft^AAft 
AftAArtAPft 
AftAftATftft 
ftftAAATlft 
ftftftftA7?ft 
ftftftftA73ft 
ftftAft074ft 
ftftAAATSft 
ftftftftATAft 
ftftftftA77ft 
ftftftftA7Pft 
ftftftftA70ft 
ftftftftAPftO 
ftftftftftAln 


SUBROUTINE  COMCHK  OnoOrtAlO 

COMMON  A (1326)  *O(S00)  * lOTHL  ( U *BOO)  .INITIOO)  , LAST  10  (3)  *1SRCM(3)  , nnnonrt?0 
• NXTIO  (2)  * JPTR,N*M,  JTYP,LSTAHT,N2tIFNCNM*L0GID*  lOTYPtMn,  00nnon30 

SLOCfLTYP. ITyP.IBLKOT tMOOE t lERPtlDES  OOftOftftAO 

COmmON/l1ST/NLIST*NINTFC,ISUBLT (4,200) • INTF  AC (60n>  ftOOOnoSO 

COMmON/GLOBAL/NHLK ,NREF,NSUHS,BLKTBL (200 ) fExTTBL ( lOn ) • I SUPS (InO)  00ftnnn60 
INTEGER  BITGET,CMfaLK (2,?0; , TP , SZ • PRE VTP , BLK TBL  nOftOnftTn 

INTEGER  SESC0M(2,13) ,SESERR,S£S ( 2) • BLANK  OOnOftoBO 

DIMENSION  ITPS  (6  ) , lORO  (6)  00ftnf\ft90 

DATA  IORO/1,2,5,4,3,6/  onoOniOfl 

DATA  SESC0m/4MCASE,1M  ,3HINA,1H  ,3MlNB,lH  *3hINC,lH  ,3hTOx,1h  , OftftOnUO 

f AMNPA0,lhXf4HLINX,lM  ,3HI0y*1H  , 4 MNP AG , 1 ri  Y , A ML  I N y , 1 H ,3MI07,1H  , OAnon)2n 
I 4MNPAG, 1M7,4HL INZ , IM  / PAnOAllO 

DATA  BLANk/im  /, IBaCOm/?H///  nnpAA)40 

DATA  StS/4MSESC,2H0M/  OAnOmSO 

SES£RR=0  onft0ni60 

NSES'O  onpnrl  7a 

ICT6R2*0  AAAOaiPA 

IHlk=INITID(3)  OAAOniqp 

MODCLS*0  AAA0A20A 

LC2SHITGET ( lOTBL  Of  I ) ,3?,9)  AO AO a? 10 

IF(LC?  .E(i,  0 .OH,  IBLKDT  ,E(5.  1)  60  TO  I AAAAA??a 

MODCLS=BITGET ( ISUfaLT (3fLC?),I0,4)  AAA0n?3A 

1 IF(IMLK  ,E0,  0)  GO  TO  120  AAAAA?4n 

IF  ( lOTBL ( 1 , IHLK)  ,EO,  BLANK)  GO  TO  3 OOAAppSA 

LlSTLC=BlTGtT( I DTBl ( 3 , I BLK ) .32,9)  OAnAA?^A 

KLASsBITGET ( ISUBLT  OtLISTLC) tI0f4)  n00AA?70 

ISZ«BIT6ET { ISUBLT (3f LISTLC) ,32,15)  Oaaaa?ao 

IF  ( lUTBL (5, IHLK)  ,NE.  ISZ)  60  TO  70  OAAOA^Rn 

GO  -TO  5 AAAAA300 

3 IF (MODCLS  .Nt.  I .and.  MOOCLS  .NE,  2)  60  TO  5 AaoaaiIA 

IHNKSZ=BITG£T { ISUBLT (3, LC2) ,32,15)  aaoOa3?0 

IF ( I DTBL (5, IHLK)  .NE.  IBNKSZ)CALL  ERROR ( 58 , I BKCOm , PL ANk , IOM3,IPM4)AaaOa33A 
S NHLOCsQ  AonOA340 

ISUMsO  nnAAft*<SA 


NTP  = 0 

TPaO 

ICOMST=IDTBL {«, IHLK) 

LOCsICOMST 
10  PREvTP=TP 

IF (BITGET ( lOTBL (3,L0C) , n , 1 ) .EO,  1)  GO  TO  15 
TP*l 

IFSTsBITGET ( I DTBL (1 ,LOC) ,8,8) 

IF(IFST  .LE.  213  .AND.  IFST  .GE,  201)  TP*4 
GO  TO  18 

15  TP*8IT6£T(IDTBL(3, LOO ,10,3) 

18  SZ*1 

NDlMrblTGET ( lOTBL (3,L0C) ,7,6) 

IF (NDIM  .EO.  0)  60  TO  22 
DO  20  IslfNOlH 
20  SZ«SZ«IDTBL(4*I,L0C) 

22  1F(TP  .NE,  2 .and.  TP  .NE.  3)  60  TO  25 

IF(M00(ISUM,2)  ,NE,  0)  call  ERROR ( 64 , I DTBL U , LOC ) , 1 0T«L ( ? ,L0C ) , 
% IDTBL ( I , IBLK) ,IDTBL (2, IBLK) ) 

ISUM*ISUM*SZ 


AAAAA36A 

AAOAO370 
AAAAA380 
AAAAn39A 
AAAAA4A0 
AAA0A4 1 0 
AAA0A42A 
0AnAA430 
0AAPA440 
AAAOAASA 
AAA  A A46A 
AAAAA47A 
nOAAAA AO 
AAo0n490 
OAOAA^OA 
AAAOA*;lO 
00A0AK2A 

0AA0AS30 

OAAOA^AA 

OAAOASSO 


1 


?5  isuM*rsuM*sz 

IF(IBL»<OT  .to,  1 .and.  I00D(PREVTP*1)  ,GT.  IORD(to*1)) 

% CALL  ERROR  (f»S,  lUTtiL  (I*  IBLK)  • IDTHL  (?•  IbLK)  , IDM3,  TOP4) 

1R(KLAS  .to,  10  .OR.  IUThL(1*1BL^)  .EQ.  BLANK)  GO  TC  3p 
IF(KLAS  .to,  R)  60  TO  35 
IF  (KLAS  .to.  7)  60  TO  40 
ICT6R?=l 

IF(TR  ,E0,  PREVTP)  GO  TO  35 
IF(PRtvTP  .to.  0)  60  TO  3? 

DO  30  1*1. NTP 

IF(TP  .to.  ITPS(D)  60  TO  110 
30  CONTINUE 
32  NTP*NTP#1 

ITPS  (NTP) *TP 

35  IFMBLKOT  .EGi.  1)  GO  TO  38 

IF (0IT6ET ( IDTBL  OtLOC) .21.1)  ,EO.  0) 

% CALL  tftPOR (75. IDTBL ( 1 *LOC) . IDTBL (2.L0C) « IUH3. ID-4) 

38  L0C*IDTHL (8.LOC) 

IF (LOG  ,Nt.  ICOMST)  GO  TO  10 
60  TO  f*5 

40  IF(TP  .EQ.  PREVTP)  GO  TO  45 
NBLOCsNHLOC* 1 
Cfc'BLf'  ( I .NoLOC)  *TP 
CPBLK (2.NBL0C) *0 

45  CMhlK (2.NBLOC) sCmBLK (?,N"L0C) *5? 

IF ( ILTBL  ( 1 ♦ IhLK ) .Nt.  StS(l))  GO  TO  85 
IF ( lUlBL (2. IBLK ) .Nt,  SES(2))  GO  TO  B5 
NSES*NSES* 1 

IF (N5F5  ,GT,  13)  GO  TO  80 

IF <IuToL(l.LOC)  .to.  StSCOM ( 1 ,NSES)  .AND.  IDTBL(2.LnC)  ,EO, 

% StSCO«(2.NSES) ) 60  TO  05 
00  SESERP=1 
05  L0C=I0TBL (0.LOC) 

IF(L0C  ,NE,  ICOHST)  go  to  10 
1PTP»ISUBLT{4,LISTLC) 

NDPTP*IRTR4NHL0C-1 

KOUNT»0 

N6RP*NhL0C 

DO  50  I=IPTH.NUPTk 

KOUNTsKOUNT*! 

IF(KOONT  ,GT,  NBLOC)  go  to  65 
S7«0I T6t  T ( INTFAC ( 1 ) . 1 7, 17) 

TP«rtITGtT ( INTF  AC ( I ) .20.3) 

IF (TP  ,N£.  0)  GO  TO  40 
CHBLK (2.KOUNT ) sCMBLK (2.K0MNT) -SZ 
IF  (C»-bLK  (2.K0UNT ) .tO,  0)  GO  TO  50 
IF  (CPHL^  (2.KOUNT)  .LT,  0)  60  TO  90 

rount*kount-i 

NGPPsNoRP* 1 
60  TO  50 

40  IF (CMhLK ( I .ROUNT ) ,Nt.  TP  .OR.  CmbLR ( 2 • ROUNT ) .NF,  ^7)  ^O  TO  90 
50  CONTINUE 

IF(N6PP  .NE.  nlTGET ( I5UHLT ( 3.LISTLC) .6.6) ) GO  TO  Qn 
65  IbLRsIOTBL  (4.I0LR) 

60  TO  I 


nnnOftR60 

nooon57o 

00000*80 

OOOOotRO 

OOOOOROO 

00000*10 

00000*20 

00000*30 

00000*40 

0000n*50 

ooono*60 

00000*70 

0n00»S*80 

OOooo*90 
00000700 
OOOOoTl 0 
00000720 
00OOO730 
OOOOOT40 
0000O750 
000007*0 

00000770 

00000780 

0O0OO790 

nooo^aoo 

OOOOOAl 0 
0 0 0 0 OP  20 

00000030 

OOOOOP40 

O000OP50 

oofl0op*n 

nnoooPTO 

OOOOOQAO 

OOnOoPRO 

oooooooo 

OOOOOQl 0 
noOOoQpO 
00000030 
0 0 00  004  0 
oronoQ*o 
000000*0 
0000OQ70 
00000080 
OOO0OO9O 

000  0 t 0 00 
0000)010 
0000) o?o 
00001 o3o 

0000) 04P 
0000 ) 0*0 
oooo) 0*0 
0000) o70 
0000) OAO 
0000) 090 

00001  ) •'O 
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70  CALL  fc WWOR (58* IDTdL ( 1 f IPLK) , lOTbL (?• IHL^) • IOH3, In«4) 

GO  TO  dS 

90  CALL  EWR0R(57,10TbL(l#IBLK)  ,IOTHL(^•IeL^)  .I0^*3.InM4) 

GO  TO  65 

110  call  tkkOR(63*  lOTbL  < 1 . IHLK)  , 1DT8L  (?tlRLK)  • 1UM3,  IriM4) 

GO  TO  65 

C***CHfCK  That  common  bLOCK  »*StSCOM«  Is  btLL  Otf^JNtO 

1?0  IFdCTGR?  .to,  0 .and.  (MOOCLS  ,tO.  1 .OR.  HOUCLS  ,fO.  ?)) 
$ call  tRR0R(73,I0Hl,IDM?,I0M3,IDM4) 

IF  (NStS  ,t(i.  0)  GO  TO  130 
IF(SFS£«R  .EQ.  1 .OR.  NSES  .LT.  13) 

$ call  ERH0R(48, lUMl . IOM?. IDM3, IDM4) 

RE  TURN 

130  CALL  ERROR (66. IDMl , lOM?, IDH3t 10H4) 

return 

END 


no  An  n 1 0 
nnnni i ?o 
nnoA 1 1 30 
n A 0 A 1 1 4 A 

aaaa  n 50 
OAOAl 160 
nono  T I 70 
00001 180 
AAOOl 190 

nnooi?oo 

0A0Ol?lO 
OAOOl ??0 
00001 ?30 
AAOOl ?A0 
0AA01?S0 
OAAOl ?6A 


bUP^*OuTlNt  CO»»k}iT 

COMfc-ON  A ( I 3?f»>  *0  t*>00)  . U)Tf»L  ( n .soft)  f INH  U>(  3)  *LA^t10  (3)  , 1«;pCh  (3)  , 

• NXT  in(?)  , JPT»^*K*M,  JTVP.LSTART.N?*  U>jC^'M,LU6ID,  InTYP.^in, 

• LOC.LTyP.ITyP, IhLAOT.MOUt , Itwp,  lOtS 
iNTfbtW  blTGfcT 

ICOMLCaO 

ICO“NM*IOTHL  C‘^*LOC) 

• LOC*LTyP.ITvP. IHLKDT •MOOk, ItPR.lOkS 
iNTfcGtP  dITGtT 

ICOMLCaO 

IC0HNP*10THL  {'^•LOC  ) 

ICO«ST»IDTmL  (H*  IC0*1NM) 

ICOMNU«IOTHL (O, ICOMNM) 

1C0MS?*10THL  <**•  ICOMNH) 

N*TLOC*ICO«Nn 
00  ?0  I»1#IC0MSZ 
N*TL0C»IUTHL (H*NXTL0C) 

MUL«1 


oftnoftn  1 n 
nnnoooPO 
noonnn3o 
onr»/'nn40 
nnnnnoSn 
nnnoftrt^o 
nftoort«7o 
OOnortnAfl 
ftOOonn^n 
OOftOnn^n 

ftOOOnftAn 
nnooAnPn 
ftonftni nn 
nnonoi lo 
noftOA  ^ ?n 
ftnoftni 30 
nononi 40 


IS7-1 

ITP»BITG£T ( lOTBL {3*NXTL0C) ,10.3) 

IF(ITP  .EO.  ? .OH.  IIP  .EO.  3)  MuL«? 

IF(L0C  .EO.  NXTLOC)  GO  TO  ?5 

IF  (BITGET  ( IDTHU3*NXTL0C)  , 1 . 1 ) .£0.  1)  ^0  TO  10 
GO  TO  ?0 

10  ND1m*BITG£T  ( IOTpL  (3*NXTL(»C|  .7,6) 

DO  IS  J«lfNOlH 
IS  I57«IS7*I0THL (J*4. NXTLOC) 

?0  ICOMLC*ICOhlC»IS7*HI)L 

as  ilft*icomlc 

IRMT*1C0MS7-IC0HLC 

NXTLOC*LOC 

IOFFST»IOTBL (1 1 .NXTLOC) 

30  NXTLOC«IOTBLMO. NXTLOC) 

IF  (NXTLOC  .£Q.  LOC)  HLTUHN 
IOFF?*IUTBL { 1 1 .NXTLOC) 

IF  ( (IOFFST.IOF^^)  ,(,T.  ILFT)  60  TO  SO 
ITPaBITGET  ( lOTHL  O.NXTLOO  .10.3) 

ISZ*1 

IF(ITP  .NE«  ? .AND,  ITP  .NE.  3)  GO  TO  33 
IF <M00( (ILFT-IOFFST.IOFF?) ,3)  .NE.  0)  CALL  ER»0R(A4, 
S)  . lOTHL (3.NXTL0C) . IDThL ( 1 . ICOHNH) , IDTflL (3. ICOMNM) > 
IS7«? 

33  IF  (bITGET  ( IDTHU3. NXTLOC)  .1 . 1)  .NE.  1)  GO  TO  40 
NDlM*bITGET ( lOThL (3. NXTLOC) .7.6) 

DO  3S  I«1.NDIM 
3S  IS7*IS7*lOTbL t%*I. NXTLOC) 

40  IF  ( ( IS7- (I0FFS1-I0FF2) ) .GT,  IRHT)  60  TO  SO 
GO  TO  30 

SO  CALL  ERR0R|47.1DM1.1Dh?,IDM3.1DM4) 

RETURN 

END 


noonn)  *^0 
noon  ft  1 60 
noooft) 7o 
nnoOftiRo 
onnoft) RO 
nooonpoo 

ft000n?\0 

0O00rt??0 

00n0n?30 

oe'OOc?40 

OApOftpSO 

nooon?60 

CPrCft?7o 

nonnripAo 

onpOft?9o 

noonn^oo 

oooooxi 0 
0000^330 
nonoft33n 

0000^340 

nnooo3So 
TOtRL  ( 1 .NxYLOCornon-^Gn 
nonno37o 
00000360 
00000390 
00000400 
00O0A410 
fl000ft4?0 
O0OOP430 
OOOOP440 
000004SO 
0000ft460 
00000470 
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SUBHOUTINE  COMSCM  OnnnonlO 

COMHON  *(1326) .0(600) tIOTHL ( 11 . 500 ) . INI T 10 ( 3 ) ,L*ST 10 ( 3 ) , I SRCM ( 3 ) , OOOOno20 

• NXTI0(2) , JPTB.N.M, JTYP,LST*HT,N2, IFNCNM.LOGIO, InrvP.Nln,  00fl00n30 

• LOC.LTYP.ITYP.  IBLKOT.MOOE,  UPP.IOES  000000*0 

J«1NITI0(3)  OOOOOoBO 

IF  (J  .EO,  0)  GO  TO  15  00000060 

00  10  I«1.NI0  OOOOOoTO 

if(Icomp(n*tio,iotbl,J',ii)  .eo.  o)  go  to  5 000000*0 

ISPCM(3)*1  OOflOooOO 

l-OC«J  000001  00 

return  OOOOOllO 

5 J«1DTBI.  (*.J)  000001  20 

IF(J  ,EC),  0)  GO  TO  15  00000)30 

10  CONTINUE  0000o)*0 

15  ISBCH(3)  «0  00000150 

RETURN  00000)60 

00000)70 


a 


SUBROUTINE  CTGOTO  onnnnoln 

CONNON  A(13?6) ,O(S0O) t lOTBL ( 1 1 ,SOO> iINlTIU 13) ,L*ST10(3) . 1SHCM|3) t ftonflnn?o 

• NXTlD(?),jPTRtN,N,JTTP,LST»HT,N?,lFNCNM,L06ID.InTrP,Mn,  OOOnnnSn 

• LOCtLTTP.ITYP.IHLKOT. MODE, ItPR, IDES  nnnnnnxo 

COMMON/LXBELS/STATR* (?«aOO) .NLABEL  nnnnnnSo 

CONNOK/BASBLK/IBLOCK  (?SOO)  , NHLOCK  , NB  , NbPNCM  ni'ftnnnf.O 

dimension  IALPm<»)  onoonATo 

INTEGER  STATRA, A, blank, RPAP, COMMA  AOAAnnRn 

INTEGER  BITPUT.bITGET  nnnAAARo 

DATA  blank/im  /,COmm»/im,/,lpar/ih(/,rpar/im)/  nnAAAinn 

DATA  lALPM/lMG, IHO, IMT, IHO/  Onnnniln 

DO  S 1*1,4  onoAnlPO 

IF <NEXT ( JPTR)  ,NE,  IALPM(I))  60  TO  30  OAAOnlSO 

S CONTINUE  OAnAnlAO 

IF (NEXT (JPTR)  ,NE.  LPAR)  GO  TO  30  AAnOnlSO 

NBL0Ck*n8l0CK,1  OAonotGA 

JBLOCK*nBLOCK  00000)70 

NBRnCm*o  nnnoniRO 

10  CALL  GnlE  flonnoiRo 

1F(JTYP  ,NE,  5)  GO  TO  30  oooflnpoo 

CALL  STSRCm  onoooPlO 

STATRA (?,LOC) *B1TPUT ( ST ATHA ( a ,LOC ) ,1,1?)  onoon??0 

IF(NBHNCM  ,E0,  0)  GO  TO  IS  oonon?30 

DO  1?  1*1, NBPNCM  POonn?40 

1F(L0C  ,E0,  IBLOCK (NBLOCK-1,1 ) ) 60  TO  17  nnnnoPSo 

1?  CONTINUE  pnnonpfcfl 

IS  NBL0CK*NBL0Ck.i  nnoon?70 

IBLOCK (NBLOCK ) *LOC  nononPRO 

NbPNCh«NBRNCM, 1 oononPRo 

17  IF (NEXT (JPTR)  ,E0,  COMMA)  GO  TO  10  nnnnnTOO 

IF(A(JPTP-1)  ,NE.  PPAP)  GO  TO  30  OonOnTlO 

IF (NEXT (JPTR)  ,NE.  COMMA)  GO  TO  30  OonOnlPO 

call  GNlE  nonnn330 

IF(JTYP  ,NE,  ?)  60  TO  30  onnOAYAfl 

CALL  search  nnoooTSn 

IF(ISRCM(?)  ,E0.  1)  call  error  (10, nxtI0(  1 ) ,nxTID  (?),  iriMi,  iom*)  nnnnATGA 
IF(ISRCm(1)  ,Eo.  1)  60  to  ?o  nnnnnxTn 

IDTYP*!  AAonATRO 

CALL  STORE  AaaoaTRa 

LOC*NIO  AnAOAAAO 

?0  CALL  IMPTYP  AAAnnAln 

IF (BITGET ( IDTHL (3,L0C) ,10,3)  ,NE,  4)  0Annn4?0 

S call  CRR0R(3R,NXT I0( 1 ) ,NxTID(?) , IDM3, Iom*)  AnAAo»3A 

IF (BI TGE T ( lOTBL ( 3,L0C ) , 1 , I ) ,E0.  1)  0Annn44n 

% CALL  ERR0B(14,nxTI0(1),nxTI0(?) ,IDM3,idm»)  oonnoASo 

IF (NEXT (JPTR)  ,NE.  BLANK)  60  TO  30  ponnpxGO 

IBLOCK  (JBLOCK)  *?000»LOC  OPOnn47(\ 

NB*1  nnnnnxRn 

RETURN  nnoonxRO 

30  CALL  ERR0R(T,IDM1,I0m?,IDM3,IDM4)  nnnonSnn 

RETURN  nn(inoSIn 

END  onnnpsPn 


SUHPOuTiNe  DATA 

COnmCn  6<l3?fe».D(bO0).lPTHL(ll*500)fINlTlO(3)tLASTTn(3), ICPCh (3) , 

• NXT  10  (?  ) * JTyP,LSTART  *N?,  I FnCNH  # L06 1 0 # I OT  yP  , M 0 • 

• LOCfLTYP, ITYP, IttLKOT.MOOF • UPP, IDES 
OlMtNSlON  IALPH(4| 

INTFGFK  A, PP A R, C OHM A, SLASH, blank, AS TR IK, PLUS 
iNTttotM  bITPUT,bITGET 

DATA  LPAW/lh(/,RPAM/lH)/,C0HHA/lM,/,SLASM/lh//,HL4MK/lH  /, 

• ASTPIK/ 1M*/,PLUS/1M*/,MINuS/IH-/ 

DATA  I ALPH/IHD, IHA, IHT, IHA/ 

UO  6 1*1*4 

IF (NtXT ( JPTR)  ,NE.  lALPM(I))  GO  TO  60 

s continue 

6 LST1S7»0 
LST?SZ«0 

8 ISZ«l 
CALL  GNlE 

IF (JTYP  ,NE,  ?)  GO  TO  60 
CALL  search 

IF(ISRCM(a)  ,EO,  1)  CALL  ERROR ( I 0 • NXT 10 (1 ) ,NXT I D ( 7 > , IHm^ , I OMa ) 

IF { ISRCH( I ) ,EO.  1 ) GO  TO  9 

IDTYP«1 

CALL  STORE 

L0C»NI0 

9 IF(BITGET(I0TmL(3,L0C) ,12,1)  ,EO,  1) 

% CALL  ERROR(30,NXT ID< 1 ) ,NxTID (?) , IDM3, IDH4) 
call  IMPTYP 

IF (bITGET ( lOTBL (3,L0C) , 16, 1 ) ,EO,  0)  GOTO  10 
ICOMLC=IOTBL (9,lOC) 

IFdbLKOT  ,EQ,  0 .OR.  I DT8L  ( 1 , I COHLC ) ,EO,  BLANK) 

$ CALL  ERR0R(28,NXTID(1) ,NXTID(?) ,I0M3,I0M4) 

10  IF (NEXT (JPTR)  ,NE,  LPAR)  GO  TO  25 

IF (blTUET (lOTHL (3,L0C) , 1 , 1 ) ,EQ,  0)  GO  TO  90 
NOlMabiTGET (IPTBL (3,LOC) ,7,6) 

I»0 

16  I«I^1 

CALL  GNLE 

IF (JTYP  ,NE,  S>  60  TO  60 

IF(N2  ,LE,  0)  CALL  ERROP(e,lOHl,IOH2,IOH3,IOH4) 

IF(N2  ,GT,  IOTBL (4*1 *L0C) ) call  ERR0R(l«,IDMl,IDM2,I0M3,TnM4) 

IF (NEXT (JPTR)  ,EQ.  COMMA)  GO  TO  15 
IF(I  ,NE.  NDIM)  60  TO  80 
IF(A(JPTR-1)  .NE.  RPAR)  60  TO  80 
60  TO  35 
25  JPTR*JPTR-1 

IF(BIT6ET(I0TBL(3,L0C),l,l)  .EQ,  0)  GO  TO  35 
NDImsHITGET ( IDTBL ( 3,LOC) ,7,6) 

DO  30  Isl*NDlM 
30  IS2»lSZ*ll>TBL|4*l,LOC) 

IF (BI TGET ( lOTHL (3,L0C) ♦ 14, 1 ) ,EO,  1) 

% CALL  ERROR (29, lOTHL ( 1 ,LOC) , lOTBL (2*L0C) , I0M3* I0m4) 

35  LST1SZ«LST1SZ*ISZ 

lOTftL (3,LOC) «H1TPUT ( lOTHL ( 3,LOC ) ,1,14) 

IF  (NEXT  (JPTR)  ,t(J.  COMMA)  GO  TO  0 
IF(A(JPTM-1)  ,NE,  SLASH)  GO  TO  60 


Oonoftnlo 

nonroflPO 

pnn^^A^^30 

nf'PPAAAO 

('opcAcSn 

OPAonoPn 

nonpnnTO 

nnoonnRo 

nnonnpRn 
OAnnn) nn 
PPOOA) 1 0 
nonpni 2o 
ppnppl 30 

PPPPPI 40 

onnppiSn 
PPPOnl 60 
nppom  70 
Ppppnl 8n 
0 p p p n 1 Qp 
OPPpPpOO 
PPP0P21 n 
PP0PP22P 
PPPPP?30 
PPPOaPAP 
PPPPPpSP 
PPPPPP6P 
PPppnpTP 
PPPPppPO 
PpppppRn 
PPPPPIPP 
PPPPPTl P 
PPPPP3?P 
PPPPP33P 
PPPPP34P 
P P P 0 p ■^6p 

PPPPP360 
0P0PP37P 
PPPPptRP 
OPPPP-^90 
PPPOPAPP 
PPPfl  P4 1 P 
PPOOP420 
PPPPP430 
PPP0P440 
PP00P4SP 
0PP0P46P 
PPP0p47P 
PPPOP480 
PPPPP490 
PPPPPSPO 
PPPOP^IP 

pnppps2o 

PPPPPK30 

0OP0P540 

npoops5ft 


w 


40 

NRPEAT«1 

nnnOr>Cf<n 

call  gnle 

ftrtrr\n«,7n 

If  < JTYP  ,tQ,  00  TO  47 

n r n n «c,«  0 

IF  (JTYP  ,N£,  b)  GO  TO  a5 

nmnrc.On 

IF (Kt XT { JPTR)  .Nt*  ASTRIK)  00  TO  5Q 

NRPt AT*N2 

call  GNLF 

45 

IF;a(JPTW-1)  ,NE,  plus  ,AN0,  A(JPtR- 

1 ) 

• Nt 

• MINUS)  GO  TO  47 

CAlL  G5Lt 

or 

*7 

KKsNfcxT ( JPTR) 

50 

If (JTYP  ,GE,  3,AN0,  JTYP  .LE.  6)  00 

TO 

55 

lf(jTYP  ,tO.  7 .ANU,  LOOK)  ,tO.  10) 

00 

TU 

55 

oriftnnjkTo 

IF(JTYP  ,£0,  7 .ANO,  LOOIO  ,tO,  11) 

GO 

TO 

f>f>AOfl<^AO 

60  TO  70 

n A A 0 0 

55 

LST?S7»LST2S7*NRPEAT 

AftAAATAA 

IF(A(JPTR-U  .to,  COMMA)  oO  TO  40 

AAAAA71 A 

IF(a(JPTR-1)  ,NE,  SLASH)  GO  TO  60 

aaaaa7?A 

IF(LST1S7  .Nf.  LST2S7)  CALL  fcRR0P(3l 

,IUMl  , 

IGM?.  I jnM4  ) 

0««Aa73A 

IF (NEXT ( JPTR)  .to.  COMMA)  00  TO  6 

ArAAA74A 

IF(A(JPTR-1)  ,NE.  HLANK)  00  TO  60 

0 ft  A A A 750 

RETURN 

AAAAft760 

60 

call  error  (7.  I DM1  • IDM2,  I()m3,  IUMa) 

AAftftft770 

RETURN 

AAAAA740 

70 

call  error  (23,  IDMI  , lUMp,  I DM 3*  IDm<.) 

AAA0ft7OA 

RE  Turn 

ftAAO^PAn 

bO 

call  FRROR  ( IDMl  • IDM?,  IOM3,  If>M4  ) 

aaaaapIa 

RETURN 

AAAAAQ20 

call  error (13. lOTbL ( 1 .LOC) . 1 UT bU ( ? .LOC ) 

. I0»«3,IUm4, 

AftAAftPTn 

RETURN 

AftAAftO40 

END 

AAAArftSO 

I 

I 


II 
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SUROOliTlse  DtSCfcP 

COMMON  A ( 1 3?6  ).[)(S00)fir*THL(IltSno).lNlTlU(3),LA<;TlP(1),  I^RCM  ( 3)  , 

• NXT10(?).JPTH,K,M,JT>P,LSTAWT,N?,  I F NCKM  , L 06  I D . InivP  , 

• LOC.LTyP.ITyP,  IhL'^UT.MOnf  , It«R,  lOf  S 

CC^'«UN/F  OPmaT/  IDfc  SST  , H’k  SnO,  IOPST  , I GPNc  • I 6PP  , St  Pc  T , SFP'-'P, 

1 Olfi* icon, istP 
OiMfcNSICN  FOe«T ( 7) 
iNTeoew  A.FOPMT.DtCPT ,Pt F .E  ■ 

DATA  F0PHT/lMF,lhtfl»^O,lM0tli^I*lHL*lMA/ 

Data  pecpt/ ih. / ,pt t / ihp/ ,t */ Ihx/ *mimjs/Ih-/ 

ISCLFCsft 
I,  T*0 
IMIKUS=0 
I0ES*1 
JPTP=IUfeSST 

IF (Kt X T ( JPTW ) ,^t,  MINUS)  60  TO  5 

IPINUS=1 

60  TO  b 

5 JPTn*intsST 

6 CONTINUE 
CALL  C'NLt 

IF  (JTyP  .to,  3)  60  Tt>  hO 
IF (JTYP  ,£Q.  S)  60  TO  10 
IF (JTyP  ,N£ . ^)  60  TO  IS 

IF(N*TIU(1>  ,e.O,  Ptt  .ANO.  ISCLFC  ,£0,  0)  60  TO  ?r> 

IF(INT  ,tO,  1 .AM),  N?  ,LT,  n GO  TO  IS 
IFdSCLFC  .£0.  0 .AnO,  ImInuS  ,EQ,  1)  60  TO  15 
GO  TO  ?5 
10  INT*1 
60  TO  b 
15  I0tS=0 
RETURN 

?0  IF ( INT  .to,  0)  60  TO  IS 
ISCLFC*! 
iNTsO 
60  TO  b 
?5  00  30  I^lt? 

IF(NXTIOd)  .60,  FOttMTd))  60  TO  45 
30  CONTINUE 

IF(NXTIOd)  ,NE,  Ex  .OP.  ISCLFC  .tO,  1 .0«.  iNT  ,F0.  n>  OO  TO  IS 
GO  TO  HO 

4S  call  gnle 

IF ( jTYP  .NE . S)  60  TO  IS 
Nvi  lOTHsNp 

IFd  ,Lt.  4)  60  TO  60 

IFdSCLFC  .to,  1 .OP,  NwIOTM  ,LT.  l»  60  TO  IS 
IF(I  ,60,  7 .ANO,  NwlUTH  ,6T,  4)  60  TO  IS 
IDE  CNUsjPTP-1 
PE  TuPN 

60  IF (NtxT ( JPTR)  .Ft.  OtCPT)  60  TO  IS 
IF(Na10Tm  ,lT.  ?)  wO  TO  IS 
CALL  6NL£ 

IF ( JTVP  ,NE , b)  uO  TU  IS 
NUCPLS*N? 

IDE  SN(’»JPTP-1 

IF  (I  ,t(*.  \ ) (»0  TO  6* 

If(F».U’TM  ,lT.  (NOCP.  4))  60  TO  15 
PE  Turn 

6S  IF(M»IDTH  .Lf,  NOCPLS)  GO  TO  15 
Pt  Town 

80  IDESNt»*JPTP-l 
Pt  TURN 
t NO 


oOrtft/'Ain 

ftr»noAn?ft 

nonnAA3n 

OnAAAAAO 

AOaaaaSO 
n A A A A A 60 
AOAAaaTO 
OOAAAAAO 
AAOAaaRO 
nonoAi on 

A 0 r 0 A 1 10 

Oaaoa  J?A 
AAAOA 1 3n 
A A A 0 A 1 4 n 
AAOOa) sa 
A A A A A 1 60 
A A A A A 1 7 A 
AAAAA  t AO 
A A A A A 1 R A 
AAAAA?nO 
OAOr A?1 0 
AAAAr??0 
oaaaa?30 

A A A A O ?4  0 
A A A 0 A ?S0 
nAA0A?60 
AAAAA?7n 
0''OOA?8A 

or  ai>a?RO 
OOAOAAAn 
0 AAOr^l 0 
AAAOaA?A 
AAor a330 
AAA('a140 
AAA0A3S0 
ArAAA36r 
AAaAaATO 
AAAAaIAO 
OAAOaAQO 
onoOAdOf' 
AAAAA410 
AAAAA4?0 
0AA0A430 
PArAA440 
r AAAA4S0 
OAnrA460 

AAA0A470 
AAAAA4A0 
0rA0A4RA 
A A A 0 aC  0 0 
PA  AO  AC  I 0 
oapaacPa 
0 A r A ac  3 A 
0 A A A AC  4 A 
oaaoacso 

AAAAaC6A 
0AA0AC70 
A A A A AC  Q 0 

OOAr acqa 

AAO AA400 
pAAAA^^l  0 
OAAAAC?n 
AAA0''6ln 


SUBROUTINE  OIMEN 

COMMON  A ( 13361  .D(600).IOTHL(U.500I.INITIO(31.LA<;tIDi3i  ,1SbCm  O)  . 

• NXTIO (?) , JPTB.N.M, JTyP.LSTART.N?, I F NCNM , L06 I D , 1 0 T vP , M o , 

• LOC.LTYP.JTYP. IBLADT.MOOE , lt«R. IOES 
dimension  ULPH(R)  ,I0IM(3) 

INTEGER  A.O.RPAR.COMMA 
integer  BITPUT.bITGET.COMLOC 

DATA  lALPM/lMD.lHI ,1Mm,ihE,1MN,1ms,1mi,1MO,1mn/ 

DATA  LPAR/)H(/,PPAR/1M) / .COMMA /I M,/ 

do  10  I*l.<> 

IF (NExT ( JPTR)  .NE.  IAlPm(I))  60  TO  110 
10  CONTINUE 
1?  CALL  GNLE 

IF(JTYP  .NE.  ?)  60  TO  110 
CALL  search 

IF(ISNCM(?)  .EO.  11  CALL  ERROH(10.N»TIO(11 ,N*TIO)P) ,lPH3,InMA) 

IF ( ISRCh( 1 ) .FO,  1 ) GO  TO  5 
IDTyP*! 

CALL  STORE 
LOC-NIO 

5 IF (BITGET ( lOTHL (3.L0C)  , 1 , 1 ) .nE.  0) 
i call  ERROR ( 1 1 .NXT 10(1 ) ,N*T id (?). IOM3,  U)m») 

CALL  IMPTYP 

IDTBL (3. loo  *HITPUT ( lOTBL (3.L0C) ,1.1) 
lE-LOC 

IF(NEXT (JPTR)  .NE.  LPAR)  GO  TO  110 
INCR*1 
I »0 

IS  1*1.1 

CALL  GNLE 

IF(JTyP  .NE.  5)  60  TO  13 
lOlM ( 1 ) «N? 

IF(N?  ,GT.  ?«»17-1)  call  error (B. lOMl , lOM?,  U/M3, rOM* ) 

IF(N?  ,LE.  0)  CALL  £mROR(8,IDm1,IDM?,IOM3,ioma) 

INCR=INCR»N? 

60  TO  14 

13  IF(JTYP  .NE.  ?)  GO  TO  110 
IDTyP=1 

CALL  search 

IF(IS«CH(?)  .NE . 0)  call  error ( 10, NXT1D( 1 ) .NXTID (?), IOmY, IOma) 

IF ( ISPCm ( 1 ) .EO.  1 ) GOTO  ?5 

IOTyP*1 

CALL  STORE 

LOC*MO 

?S  IF  (bITGETdOTHL  (3.LOC)  . 1?,  1 ) .NE.  1) 

$ CALL  ERROR (G, lOMl , lUM?. IOM3, IOM4) 

IF (BITGET (lOTBL (3,LOC) ,1 , 1 ) .NE.  0)  GO  TO  1?0 
lOTBL (3.LOC) =HITPUT ( lOTBL (3,LOC) ,1,13) 

CALL  IMPTYP 

IF (BITGET ( IOTBL (3.LOC) , 1 0,3)  .NE,  4) 

3 CALL  ERROR (R, lOMl , lOM?, I0M3, I0M4) 
lOlM ( I ) =?»»1 7.LOC 

14  IF (NEXT (JPTR)  .EO.  COMMA)  60  TO  15 
IF(AtJPTR-l)  .NE.  RPAR)  GO  TO  110 
LOC«IE 


r»  n m 1 n 
r»nrn<'«?n 

noronn4n 

AAAAAA6ft 
AAAAAATA 
nAAA(SA«n 
aaaaaaQa 
A A An  A T n 0 

nAAOAT  1 n 
0 n A A A 1 ? A 

AAAAAl 3n 
A A A A A t 4 A 
A A A A « 1 * A 
AA  A A A ] 4eA 
AAAAA^Ta 
AAAOa^  *>A 
A A A A A 1 Q A 
AA  A?  AA 
AAAAa?1A 
AAaA/^??0 
aaaAa?3A 

AAAAA?4A 

AAAAA?^A 

AAaA«?AA 

AAAA«?7n 
AAAAaPPA 
A A A A A A 
0AAAA7AA 
AAAAA^lA 
AAAAa1?A 
aaaaa73a 
AAAAa74A 
aaaaat^a 

fiAAA«’^A 
AAAAAT7A 
A A A A Alfi A 

aaaaaiQa 

AAAAa4AA 

AAAAA41A 

AAAAA4?A 

AAAAA^^n 

AAAAA44A 

AA AA«4^A 

AAAAA4^A 

AA''AA47A 

A A A A A4 

AAAAA4QA 

aaaaa^aa 

AAAA«C  1 A 
AAAAAtpA 

aaaaai;3a 

AAAAA6,4A 

aaaaa^*SA 


lOTHLO.LOC)  sHITPUT  ( IUTBU(3*L0C)  .1  ,7) 

IF (I  ,6T,  3)  60  TO  110 
DO  30  J»1.I 

30  IDTl-L(44.j,L0C)  = IDIM(  J) 

IF<bITGET(IDTHL(3*L0C) ,16,1)  .NE.  1)  GO  TO  50 

COMLOCsIOTBL  (‘i.LOO 

IT«l 

ITP*HITG£T ( IDTHL  <3,L0C> ,10,3) 

IF(ITP  ,EO,  2 .OP.  ITP  .EO,  3)  IT«2 

IDTBL (5,C0ML0C) «I0THL (S.COMLOC) ♦it* ( INCR-I ) 

50  CONTINUE 

IF (NEXT { JPTR)  ,E0.  COMMA)  GO  TO  12 
IF(JPTR  ,GT,  N)  PETUPN 
110  CALL  EPR0R(7,IDM1,I0M2,IDM3,I0MA) 

RETURN 

120  call  FRR0R(14,NxTI0(1) ,NXTI0(2) ,I0M3,I0ma) 

return 

END 


ornoo^6ft 

prtOrtA6;AO 

n 0 AO  r^An  0 
nonoriAl  0 

oftnf. 

n n ft  n A 64  0 

ft  ft  ft  ft  ft65ft 
ft  ft  ft  ft  ftA  60 
ftftftftft67ft 

ft  ft  ft  ft  ft6®  ft 
ft  ft  ft  fl  ftAOO 
ftftftftftTftft 
ftftftftftTlft 
ftftftftft7?ft 

ftftftftft73ft 


SUBROUTINE  00 

COMMON  A(13?6),D{500)  % I OTHl  ( 11  # 50  0 ) fIMTIO(3),LAsTlP(3), 

• NXTID(?>,JPTR,N,M,jTyP.LSTAwT,N?, ifncnm,logid* IOTYP,NTO 

• LOCiLTYP, ITYP, lHLKOT*MOOt , ItPP* IDES 
COHMON/LAbELS/STATRA I ? , ?00 ) • NL A6EL 

common/ooloop/ist ACK ( A ,sn ) ,nstack  * I loop. iovflw 

COMMON/BASBLK/IbLOCK (?500) . NHLOCK , N« , NBRNCH 
dimension  PARAMO) 

integer  a, blank, comm a, equals* dee ,om,param,statwa 

INTEGER  HlTPUT.hlTGET 

Data  BLANK/IH  /,C0MMA/lH,/,£QUALS/lH«/,0£E./lN0/*nw/lH0/ 
IE  (NEXT  (JPTR)  ,N£,  OEE)  GO  TO  SO 
IF (NEXT ( JPTR)  .NE,  OH)  60  TO  50 

call  gnle 

IF(JTYP  .NE,  S)  GOTO  SO 

call  stsrch 

STATPA (?*LOC) *bITPUT (STATPA (2,L0C) *1*1?) 

STATRA (3,L0C)=bITPUT (STATRA (?,LOC) ,l .IS) 

IF  ( IOvFLW  .EO,  1 ) 60  TO  ? 

nstack*nstack*i 

1F(NSTACK  ,0T.  SO)  GO  TO  1 
ISTACK ( 1 ,NSTACK) *LOC 
ISTACK (2.NSTACK) =0 
ISTACK (3.NSTACK) = I LOOP 
ILOOPsNSTACK 
GO  TO  2 

1 I0VFLR=1 
WRITE (6*60) 

format  (///SX.SOH  uO  STACK  OVERFLOW  - DO  LOOP  PROCF^SING 

♦) 

2 call  gnle 

IF(JTYP  ,NE.  ?)  GO  TO  50 

call  search 

IF(ISPCh(?)  ,E0.  1)  CALL  ERROR ( I 0 * NX T 1 0 ( I > * NX T I U ( ? ) , I Omi 

IF (ISHCM(l)  ,EQ,  1)  GO  TO  S 

lOTYPsl 


onnoftAlo 
T SrCh ( 3) , oononn?o 

nonOrtnAO 

nonnnr*5n 

0000«k60 

onoornTo 

onnonoAn 

noftPft ) on 
ononni  1 o 
nnrr'ft)  Po 
non  nn 1 30 
00/* '*M  40 

no  non ] So 
0 0 n 0 n 1 60 
0 on  on ) To 
onnon) «n 
onono) Ro 
oonoApoo 
nonnop) o 

noon.iPPo 
ooono?3o 
no'^noPAO 
nooropso 
nnonopNo 
ononnpTn 
onooopfln 
TFRMlNATEnnoAoopRn 
oonooTon 
Oj-onnilO 
orooo3?n 
00000330 
ir>M4)  00000340 

ooonoiso 

00000360 


call  STORE 
L0C»NID 

s call  imptyp 

IF (BI TGET ( IOTHL ( 3.L0C) * 1 0*3)  .NE,  4) 

% call  error (40*NxTIU ( 1 ) ,NxTIU (?), IUM3, I0M4) 

IF (BITG£T( IDThL (3.L0C) *1*1)  .tO,  I ) 
f CALL  ERROR ( 14.NXTI0 ( I ) ,NxTID (?)  * IDM3, IDM4) 

IF (NEXT (JPTR)  .NE.  EQUALS)  GO  TO  SO 
IF ( lOvFLW  .EO,  1)  GO  TO  fi 
NBLOCKsNHLOCK*  1 
I BLOCK (NBLOCK ) *3000*LOC 
ISTACK (4.NSTACK) »LOC 
fl  PARAM(3)»l 

DO  30  I«1 .3 
CALL  gnle 

IF(JTYP  ,NE,  S)  GO  TO  10 
PARAM ( I ) «N? 

IF(N?  ,LE,  0)  CALL  ERROR (41 , lOMJ , lUM?* IUM3, 10M4) 
60  TO  ?0 


ooooopTo 

oonooPAO 

OOOOoPQO 
OOOOO400 
oono«4  I 0 
OOoO«4?0 
00O0O430 
0OOOO440 
000004SO 
00  AC'OAbO 
00000470 
00oro4A0 
000004RO 
OOOOOSOO 
00  00  OS  1 0 
flAOOA«,pO 
OOOOOS30 
OOOOOA40 

ooooosSo 


i) 


1)  C«LL  £RHOR(10.NXTID(l)tM*TID(?),IDns,tDM*) 
1)  GO  TO  15 


10  IFcJTYP  .NE.  ?)  60  TO  50 
CALL  SEARCH 
IF(ISRCh<2)  ,E0. 

IF(ISRCm(1)  .EO. 

1DTYP=1 
CALL  STORE 
LOCsNIO 
15  CALL  IHPTYP 

IF(B1TGET(IDTHL(3.L0C) ,10.3)  ,HE.  A) 
t call  Error  lAo.MxTioi 1 ) .hxtid (?), I0H3, idma) 
IF (hlTGET ( lOTHL 13,L0C)  ,1  .1)  ,EQ.  1) 

S call  error  ( 14, N.-TIO  ( 1 ) ,NyTIO(?)  , I0M3,  IDMa) 
N&L0CK=NHL0CK»1 
I block (NBLOCK I *7COO»LOC 

1DT8L(3.LOC)»h1TPUT ( I UTBL ( 3.L0C) , I LOOP, 32) 
PARAM ( I ) =0 


IF ( (PARAM(?) ♦PAPAM|3)-1)  ,GT.  2»417-1) 
S call  ERPOR (41 . lOMl , IOH?, IDM3, I0M4) 

40  NbL0CK=NBL0CK»l 

IbL0CK(N8L0CK)s998 

NBRNCH*! 

NP*1 

return 

50  CALL  ERB0R(T,IDM1,I0M2,I0M3,IDM4) 
RETURN 
END 


ooono^6ft 

nnnonf.on 

nnnftrt<s,ln 

nA  f«o 

nononf 7A 
nAronf)ftn 
nnAOnfPo 
AAnnn7no 
rnnoftTl A 


20 

IF(I  ,FG.  3) 

GO  TO 

30 

AArn#'7?A 

IF(I  .EO.  1) 

GO  TO 

26 

AA0AA73A 

IF  {NEXT ( JPTR) 

,EO. 

blank ) 

GO 

TO 

35 

0A0A074A 

OPTPsJPTR-l 

AAoAftTSA 

25 

IF (NEXT { JPTP) 

,Nt. 

COMMA) 

GO 

TO 

50 

AAnAn76A 

30 

CONTINUE 

AAAAn770 

IF  (Nt  XT (JPTP) 

,NE  . 

BLANK ) 

GO 

TO 

50 

OAOAA7P0 

35 

IF(PAPAM<1)  , 

ECl.  0 

.OR,  PARAM(?) 

•EQ.  0) 

GO  TO  40 

OAAAATPA 

IF(P4WAM(?)  . 

LT.  PARA«(JM 

call 

eRffOP(41 

, IDHl , lOw?, IO«3, IOM4) 

AAAArtPnO 

IF(PAPAM(3)  . 

EO.  0) 

GO  TO 

40 

AAonnPlA 

Annnn«?A 

AriftAnP3A 

AAAOftflAA 

AAAAn.aSO 

AA0A<>P4A 

nAnAftP7o 
onnAftPPA 
nonAnPPA 
AnoAftOAA 
AAnOoOl A 


SUBPOOTINE  EO(JlV 

COMMON  A ( 132AJ  *Ut%OOlt!OTBL(U*SOO).lNlTlU(3)*LA<;Tin(3)  • T^iPCHfa)  * 

• N*TI0{2) , jPT«,N,M, jtyp.lstapt.n?, ifncnm,logio* InTyP,Ntn» 

• LOCtLTYP,ITYP,JBLKOT,MOOE. It PP* IDES 
dimension  lAUPHUn  •IDIM13) 
integer  0ITPUT,feIT6£T 

integer  A,RPAR •comma • HOFfST •blank 

DATA  lACPM/lhEtlMQ,lHU*lHI,lMVflHA*lML*lHE*lHN»lMC^lHE/ 

DATA  LPAR/IM (/,PPA«/lMl /,COMMA/lM»/,BLANK/Ih  / 

DO  5 I«1.1I 

IF (NEXT ( JPTR)  .NE,  lALPH(I))  GO  TO  130 
5 CONTINUE 

8 IF (NEXT (JPTR)  .NE,  LPAR)  60  TO  )30 
LSTLOC*0 

BOFFST«0 

J*0 

.120  J»J*1 

call  gnle 

ILOC*l 

IF(JTYP  .NE.  2)  GO  TO  130 

call  search 

IF(ISPCH(2}  .EQ,  1)  call  error < 10,NxTXO ( 1> *NXT 10 (?)• 1Dm3^TDM4) 

IF  (ISPCMU)  .EG.  1)  GO  TO  9 
1DTyP«1 

call  store 
loc»nio 

9 CALL  IMPTYP 

IF  (BITGET  (IDTBU3.LOC)  •12,1)  ,£0.  1) 

% call  EPROR (20*NxTIO ( I ) •NXTI0(2) * 10H3»IUM4) 

IF (NEXT ( JPTR)  .NE.  LPAP)  60  TO  30 

IF (feiTGET ( IDTBL OfLOC) • 1 , 1 ) .NE,  1)  GO  TO  ISO 

N0IM*HIT6ET { lOTBL (3,L0C> ,7,6) 

00  10  Isl,NOlH 

CALL  GNlE 

IF  (JTYP  .NE,  5>  60  TO  130 
IDIM ( I ) *N? 

IF(N2  .LE.  0)  CALL  ERROR ( ft ♦ I DM 1 , 1 DM? * IDH3 , 1 DM4 ) 

IF(N?  .6T,  IOTHL (A*l ,LOC) ) CALL  ERROR ( 1 8 • I Dm  1 , I Dm? , I DM3 , 1 0M4 ) 

IF (NEXT(JPTR)  •to.  COMMA)  GO  TO  10 
IF(A(JPTR-1)  .NE.  RPAH)  60  TO  130 
GO  TO  15 
10  CONTINUE 
GO  TO  140 
15  NDIM*I 

IL0C»IUIM(1) 

If (NOIM  ,EQ,  1)  GO  TO  25 
IL0C*IL0C* (lOlM (2) -I ) *IOTHL(5»LOC) 

IF (NOIM  ,EQ,  ?)  GO  TO  25 

IL0C*IL0C*(IDIM(3)-D*IUThl  (b,LOCl«  lOTftL  16*L0C) 

25  IT«ftlTGET(IOTdL(3,LOC) ,10,3) 

IF (IT  .EO.  2 .OP.  IT  .to,  3)  IL0C*?*1L0C 
lOf FSTsl-lLOC-BOFFST 
60  TO  45 

30  IF  (HITGET ( IOTHL (3,LOC) • 1 • 1 ) .Nfc,  0) 

S call  error ( 1 4 ,NXT 10 ( I ) .NyTIU (?) • 1UM3, 1DM4) 


nonftAAi 0 
Oftnortrt2n 

ftnoonnAo 

fton<'«n5o 

noftnnofto 

onnnnnftn 

OOnOAnRO 

oftftAfti on 
nonOM  1 0 
nnnoo i 2n 
oooOoi 30 
n 0 0 0 o ) 4 0 
noftOft 1 so 

OOOOO 1 60 

nnnf'ot  To 
onooo 1 fto 
00000)90 

ooooopoo 

oooooPlo 

00000220 

00ofio?30 

000OO240 

ooooopSo 

OOOOOpftO 

onnon?7o 
orooo?flo 
oonOo?9o 
ooo(^o3no 
o«no  0 3 1 0 
000003?0 
0OO0O330 
00000340 
000003SO 
00000360 

Ooooo'aTn 

000003AO 
OOOOO'^QO 
00000400 
000004 1 0 
00000420 
00000430 
00  0 0 04  40 
000004KO 
00000460 
000OO470 
0<'00O4ft0 
00000490 

ooooo*;oo 

OOOflOKl 0 
oooooK?n 
OOO0nS30 
0000O640 
0 O 0 0 OKNO 
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IOFFST»rtOFFST 

♦5  IF (BIT6ET ( lOTBL (3.L0C) , 17, 1 ) .£0.  1)  GO  TO  S7 
lOTbL (3,L0C) »8ITPUT ( lOTBL ( 3.LOC) ,1,17) 

IFlLSTLOC  ,EO.  0)  GO  TO  50 
lOTBL (10,LSTLOC)«LOC 
60  TO  55 
50  IFSTLC*LOC 
55  lOTBL ( 1 1 ,LOC) *10FFST 
LSTLOCsLOC 

1F(J  ,NE,  1)  GO  TO  100 
60  TO  98 

57  LOC3»LOC 

58  LOC3»IOTBL ( 10,LOC3) 

IF{L0C3  ,E0.  0)  60  TO  59 
IF(LOC3  ,EO.  LOC)  GO  TO  60 
60  TO  58 

59  JLOC«ILOC,IOTHL (ll,LOC) 

IFlJLOC  ,NE,  IDIS)  CALL  ERROR t 20 , 1OT0L ( 1 , LOC ) , I 0T9L ( 2 , LOC ) , 
T IDm3,I0b*) 

GO  TO  100 

60  IFlLSTLOC  ,NE.  01  60  TO  63 
IFSTLCsLOC 

60  TO  65 

63  10TBL(10,LSTLOC)«LOC 
65  L0C2=L0C 

TO  NXTLOC^IUTBL ( 1 0,LOC2) 

IF(N»TLOC  .EG.  LOC)  60  TO  75 

LOC2«NXTLOC 

GO  TO  70 

75  IDTBL(10,LOC?)*0 
LSTLOC»LOC2 

10FFDF«I0FFST-ILTBL(11,L0C) 

IF(IOFFOF)  80,98,90 
80  L0C2*L0r 

85  IDTBL ( 1 1 ,L0C2) «IOTBL ( 1 1 ,LOC2 ) ♦ lOFFOF 
LOC2*IDTBL ( 10,LOC2) 

IF(LOC2  ,EO.  0)  60  TO  98 
GO  TO  85 
90  LOC2*IFSTLC 

95  IFCL0C2  ,EQ.  LOC)  GO  TO  97 

IDTBLtll,L0C2)«IDT8L(ll ,LOC2)-IOFFDF 
LOC2«IDTBL(10,LOC2) 

GO  TO  95 

97  80FFST-80FFST-I0FF0F 

98  IOIS*lLOC,IOTHL(ll,LOC) 

100  IF (NEXT ( JPTR)  ,EQ.  COMMA)  60  TO  120 
IF(A(JPTR-1)  .N£,  RPAR)  GO  TO  130 
IF(J  ,EO,  1)  GO  TO  130 
I0TBL(10,LSTLOC)«IFSTLC 
J5»0 

LOC3«IFSTLC 

I«0 

110  I«I*1 

LOC3«IOTBL(10,LOC3) 


nnnon^6n 

oftnOA^TO 

nonnn^io 

nnrOft^?n 

onnonA40 

nooOA^^O 

nnoonftTo 

Oftonof.fto 

nnnopTon 
nonopTl 0 
nnonpT?n 

nnnnn74ft 

nopopT^n 

ppponTftn 

OPPPrtTTP 

nppppTAp 

nnpnp?9o 

pppppflPO 

PPPpAfflP 

pppppPPO 

pppOpff 3p 

PPPPPfl40 
pPfipP^SO 
OPPPP^^A 
PPPPPPTO 
PPPP  pPflp 
pnpppP9P 
pppppppp 
PPPPPOlP 
pppppp^p 
PPP0P93P 
0PPPP94P 
pppppoSP 
PPPPPO60 
PPPPP970 
PPPPPQ80 
PPP0P99P 
ppppirpn 
PPPPJPl p 
PPPPI P?0 
ppppj  p3P 
OPPPI p4P 
PPPP1 P^O 
PPPP jp60 
ppppl p7n 
pppplpflp 
ppopj  p9p 
PPPPI 1 OP 


} 


IF (hlTGtT (IDTrtL I 3.LOC3) . Ifr, 1 ) .EO.  0)  00  TO  105 
JK>JK • 1 

IF (JK  .GT.  1)  CALL  EGkOh (?1 , lOTBL ( 1 ,L0C3) , lOTbL (?,l  nr3) . 
% U'TbLd. LOCI)  ,IDT«L(?. LOCI)) 

LOCI=LOC3 
L0C  = L(1C3 
CALL  COOtXT 

105  1F(L0C3  .NE.  IFSTLC)  GO  TO  110 
IF  (NEXT  ( JPTP)  ,EO.  BLANK)  PLTllRN 
IF(A(JPTR-1)  ,E0,  COMMA)  GO  TO  H 
130  CALL  EPPOP(7,UjM1.IOM?,IOm3,IOm*) 

PE  TURN 

lAO  CALL  ERPOP  ( 19.  IDMl  , IDM?,  I0m3.  It)M4) 

PETLIBN 

150  CALL  error ( 13.NXTILX  1 ) .NXTIO (2) . IDM3, I0M4) 

RETURN 

END 


n 0 n 0 1 1 1 0 
Oft not i?ft 
ft<'fton  30 
ftftOftl 14ft 
ftftftfti  \ 5ft 
ftftftfti  1 fft 
ftftom  Wft 
ft  ft  ft  0 1 1 0 
ftftftfti iQft 
ftftftft  1 pftft 
ftftft ft  1 ?1 ft 
ftftftfti ??fl 
ftftftfti ?3ft 
ftftftft j?4ft 
ftftftfti ?50 
ftftftfti ?^n 
ftftftft 1 ?7ft 


■tO 


ttFT  PABEN)  OOOOOS^O 

00  TO  1000  onnooATo 

13fi  nfilTE  (6.  lAOl  lOPl.lOH?  OOrtOOSBO 

1*0  FOBPAT  (f.x.?6H  ThF  UlHtNSlONEO  VABIAbLE  ,A*,A?,1HH  IS  lISFlJ  ILLE6ALLOOOOOSBO 


»Ti  opooofcon 

GO  TO  1000  00000610 

1*5  BBITE (6.1501  lOPl  000006P0 

150  F0RPAT(6X,18b  statement  NlIMfaEB  .I5.15M  IS  NOT  OEFINEO)  00000630 

IF(IFL  .GT.  0|  IFL»-l  000006*0 

GO  TO  1000  00000650 

155  BBITE (6. 160 t IPMl  00000660 

160  format  (6X,  IBM  statement  NIimmER  ,15.  IBM  IS  NOT  HEFEBENCEDI  000006TO 

GO  TO  1000  000006B0 

165  BRITE(6,170)  lOPl.IOM?  00000690 

170  FORMAT (6X , IBM  ILLEGAL  VARIABLE  ,A*,A?,10M  IN  COMMON)  00000700 

GO  TO  1000  00000710 

175  WPITE{6,1B0)  OOOOOT?0 

IBO  format (6X,*3M  VALUE  OF  ARBAT  SUBSCRIPT  EXCEEDS  DIMENSION)  00000730 

GO  TO  1000  000007*0 

1B5  VRITE(6,190)  00000750 

190  format (6X,?5m  error  IN  ARRAY  SUBSCRIPT)  00000760 

GO  TO  1000  00000770 

195  RRITE (6.?00)  I0M1.IDM2  OOOOOTBO 

?00  FORMAT (6X, IBM  ILLEGAL  VARIABLE  .A*.A?,1bH  IS  EOll  I VALE NCE U ) 00000790 

GO  TO  1000  OOOOOBOO 

£05  WRITE(6,?10)  lOMl  , lUMi'.  IOmj,  luM*  OOOOOBIO 

210  format (6X.22M  THE  COMMON  VARIAMLfS  ,**.A2,5H  ANO  .Aa.aj.itm  are  EQO000OB20 
TUIVALENCEU)  OOOOOB30 

GO  TO  1000  000000*0 

?15  VRITE(6.??0)  0O000B50 

^^0  F0RMAT(6X,19m  illegal  I/O  OEVlCt)  OOOOOB60 

GO  TO  1000  0OP00B70 

225  rPITE (6,230)  OOOOOBBQ 

230  FORMAT (6X.37H  ILLEGAL  CHARACTER  IN  THIS  EXPRESSION)  00000890 

GO  TP  1000  00000900 

235  rRITE (6,2*0)  IPM1.IUM2  00000910 

2*0  format (6X.25H  ILLEGAL  SuhROmTINE  NAME  ,A*,A2)  00000920 

GO  TO  1000  00000930 

2*5  mPITE (6,250)  000009*0 

250  format (6X ,50H  SUBROUTINE  TahLE  OVERFLOW  - PROCESSING  TERMINATED)  00000950 

GO  TO  1000  00000960 

255  MR1T£(6,260)  I0M1.IOM2  00000970 

260  format (6X,77h  InCORkECT  NUmhEH  OF  ARGUMENTS  IN  CALLING  SEOUEnCE  PF000009BO 


t Function  pr  subroutine  ,a*,a2) 

GO  TO  1000 
265  WRITE (6.270) 

270  FORMAT (6X , 19H  ILLEGAL  ASSIGNMENT) 
GO  TO  1000 

275  WRITE  (6.2B0)  IIiU1,IUm2 


00000990 
0000)000 
00001010 
00001020 
0000)030 
0000) 0*0 


2B0  format (6X , 1*H  THE  variable  ,A*.A2.*2M  APPEARS  IN  A DATA  STATEMENT  00001050 


«ANP  IN  COMMON) 

GO  TO  1000 

265  WRITE  (6.290)  I()Ml.lnM2 


0000) 060 
00001070 
00001  OHO 


290  format ( 6X , 1*M  THE  variable  ,A*,A2.**H  HAS  PREVIOUSLY  arPEaHEU  IN  A00001090 
» DATA  STATEMENT)  0000)|00 


I 


00  TO 
WPITF  ( 
300  FORt-AT 
$ STATfc 
GO  TO 
30S  WRITE.  ( 
310  F0RF*AT 
60  TO 
315  WRITE  ( 
320  Format 
IF(IFL 
GO  TO 
3?5  WRITE( 
330  format 
IF  (IFL 
GO  TO 
335  WRITE ( 
340  FORMAT 
GO  TO 
345  write { 
350  format 
GO  TO 
355  WRITE ( 
360  format 
Go  TO 
365  WRITE ( 
370  format 
GO  TO 
375  WRITE { 

380  format 
IF(IFL 

go  to 

385  WRITE( 
3R0  FORMAT 
GO  TO 
395  WRITE( 
400  format 
$ER) 

GO  TO 
405  WRITE ( 
410  format 

go  to 

415  write ( 
420  format 
GO  TO 
425  WRITE( 
430  FORMAT 
GO  TO 
435  WRITE( 
440  format 

60  TO 
445  WRITE( 
450  format 
GO  TO 
455  WRITE ( 


1000 

6*300)  ] 
(6X*22H 
MENT) 
1000 
6*310) 
{6X*24H 
1000 
6*320) 

(6X*24M 
.GT,  0) 
1000 
6*330) 
(6X*26H 
.GT,  0) 
1000 
6*340) 
(6X*34H 
1000 
6*350) 
(6X*31H 
1000 
6*360) 
(6X*32H 
1000 
6*370) 
(6X*20H 
}000 
6*380) 
(6X*37m 
•GT,  0 ) 
1000 

6*390)  1 

(6X*24H 

1000 

6*400)  1 
(6X*?7H 

1000 

6*410) 

(6X*52M 

1000 

6*420) 

(6X*32h 

1000 

6*430) 

(6X*24H 

1000 

6*440) 

(6X*39H 

1000 

6*450) 

(6X*50H 

1000 

6*460) 


Il'Ml  • IDM? 

THE  formal  parameter  *Aa*a2*31M  ARPE 


LIST  SIZES  00  NOT  maTCM) 


illegal  STATEMENT  LAtJEL) 

) ifl*-i 


OURLICATE  statement  LAhEL) 
) IFLs-1 


THIS  statement  Can  not  he  REACHED) 


DO  LOOPS  ARE  IMPROPERLY  NESTED) 


FORMAT  STATEMENT  IS  NUT  LAdELED) 


illegal  do  TERMINAL) 


LAST  executable  STATEMENT  IS  ILLEGAL 

) ifl*-i 

IDMl * IOM2 

THE  variable  reference  *A4*A2*18H  Is 

IDMl , IOM2 

THE  DO  parameter  OR  INDEX  *A4*A2*18H 


VALUE  OF  DO  PARAMETER  IS  OUTSIDE  OF 


complex  Expressions  akc  illegal) 


illegal  VARIABLE  FORMAT) 


THIS  statement  should  MAvE  AN  I/O  LI 


statement  following  logical  ExPREsSI 


onool  1 10 
00001120 

APS  IN  THIS  DATA00001130 
00001 140 
00001150 
00001 160 
000011 70 
00001 180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001 300 
00001310 
00001320 
00001330 
00001340 
00001 350 
00001360 
00001370 
00001380 
00001390 

) 00001400 

00001410 
00001420 
00001430 
NOT  AN  INTEGER) 00001440 
00001450 
00001460 
IS  NOT  AN  INTE600001470 
00001460 
00001490 
00001500 

allowable  RANGE) 00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
000015T0 
00001580 
00001590 

ST)  00001600 

00001610 
00001620 

ON  IS  ILLEGAL)  00001630 
00001640 
00001650 


460 

FORMAT 

(6X*44H 

GO  TO 

1000 

465 

WRITE ( 

6*470) 

470 

FORMAT 

(6X*42H 

GO  TO 

1000 

475 

WRITE { 

6*480) 

*80 

format 

(6X*40H 

GO  TO 

1000 

485 

WRITE ( 

6*490) 

490 

FORMAT 

!6X*12H 

GO  TO 

1000 

495 

WRITE ( 

6*500) 

500 

FORMAT 

(6X,23H 

4 

•ENSIONALITY) 

60  TO 

1000 

505 

WRITE ( 

6.510) 

510 

FORMAT 

(6X*13H 

GO  TO 

1000 

515 

WRITE ( 

6*520) 

520 

format 

(6X»49H 

60  TO 

1000 

525 

WRITE ( 

6.530) 

530 

FORMAT 

(6X* 14H 

$) 

GO  TO 

1000 

535 

WRITE  1 

6*540) 

540 

FORMAT 

(6X.13H 

GO  TO 

1000 

545 

WRITE! 

6.550) 

550 

FORMAT 

<6X.13H 

GO  TO 

1000 

555 

WRITE ( 

6*560) 

560 

format 

16X.29M 

GO  TO 

1000 

565 

WRITE  ( 

6.570) 

570 

FORMAT 

(6X.41M 

SOES  NOT  AGREE 

GO  TO 

1000 

575 

WRITE  { 

6*580) 

5K0 

format 

16X.14M 

60  TO 

1000 

5B5 

WRITE ( 

6.590) 

590 

FORMAT 

(6X.58H 

SNATEO) 

GO  TO 

IQOQ 

595 

WRITE ( 

6*600) 

600 

format 

(6X.S2H 

60  TO 

1000 

605 

WRITE  ( 

6*610) 

610 

FORMAT 

(6X  *29M 

GO  TO 

moo 

615 

WRITE ( 

6*620) 

620 

FORMAT 

(6X.14M 

60  TO 

moo 

625 

WRITE ( 

6*630) 

REAL  NJiMbtR  LUS  OUTSIDE  OF  ALLOwARlE  RA^.6t) 


THIS  equivalence  statement  Extends  common) 


illegal  VARIAHLE  in  common  block  SESCOM) 
lOMi , I0H2 

«;ubprogram  ,A4.ap,i9h  has  Incorrect  tvpE) 


lOMl 

argument  NO..I3.19H  HAS  INCORRECT  TyPE ) 


WARNING 


this  module  is  not  in  The  «;ESCOmP  LIST) 


00001 nmO 
OOOOIKTO 
POOO 1 HbO 
onociHRo 
00001  TOO 
onoo  1 7 1 0 
00001 7?0 
00001 730 
00001 740 

nooo 1 7S0 

0000 \ 7H0 

IDMl  00001770 

warning  • argument  n0.,I3*3AK  may  have  incorrect  D1MP00017M0 

00001 790 
0000 1 hOO 
00001 R 1 0 
0O001M?0 

0 0 0 0 I « 3 0 

0000 1 «ao 
OOOOIHSO 
nooo 1 aro 

IDMI,I0H2  00001H70 

the  VARIABLE  ,A4*A?,?9m  PREVIOUSLY  APPEARS  IN  COMmONOOOO I HMO 

00001R90 
00001900 
00001910 
00001920 
00001930 
000019AO 
00001 9S0 

00001  9f>0 
00001 970 
00001980 
00001990 

IDM1*IDM2  00002000 

warning  - variable  type  in  common  block  ,A4,A2,4lM  000002010 
WITH  interface  UEFINITION)  00002020 

00002030 
O0O02OA0 
000020SO 
00002080 
00002070 

External  reference  table  overflow  - processing  termioooo?oao 

00002090 
000021 00 
000021 10 

COMMON  BLOCK  TABLE  OVERFLOW  - PROCESSING  TERM  I NA TE 0 ) 000 02 1 20 

00002130 

lUMl • 10M2 

illegal  common  block  name  • •A4«A2) 


IDMl 

ARGUMENT  NO, 


lOMl 


.I3*11h  is  INVALID) 


APbUMtNT  N0..l3t?9H  IS  DESIGNATED  LOGICAL  OUTPUT) 
lOMl , lOM? 

illegal  common  block  name  - ,A4,A2» 


lOMl , I0M2 

COMMON  BLOCK  ,A4,A2,19H  HAS  INCORRECT  Sl7E» 


IDMl , I0M2 

COMMON  BLOCK  #A4,A?,27H  IS  NOT  IN  THE  SESCOMp  LIST) 
lOMl , IDM2 


00002140 
00002150 
00002160 
00002170 
000021 fiO 
00002190 
00002200 


630  F0RMAT(6X.25N 
S TYPF) 

60  TO  1000 
635  tiPiTE  (6*640) 
640  format (6X*38H 
% NOT  BEGIN  ON 
GO  TO  1000 
645  fc»PITE (6*650) 
650  format (6X*26M 
GO  TO  1000 
655  WRITE(6*660) 
660  format (6X*56M 

$PAM) 

GO  TU  1000 
665  mRITC16*6T0> 
670  format (6X* 14H 

return 

675  WRITE (6*680) 
680  format (6X*24H 
RETURN 

685  WRITE (6*690) 
690  format (6X*23M 
SNCED) 

RETURN 

695  WRITE (6*700) 
700  format (6X, 14M 
%D) 

RETURN 

705  WRITE  (6*710) 
710  format (6X*l4h 
$N  ASSIGNED  60 
RETURN 

715  WRITE(6*720) 
720  format (6X*18M 

return 

725  WRITE (6*730) 
730  format (6X*49M 
GO  TO  1000 
735  WRITE (6*740) 
740  format (6X*24H 
f PROGRAM) 

GO  TO  1000 
745  WRITE (6*750) 
750  format (6X* 14M 
$ COMMON  HLOCK 
60  TO  1000 
755  WRITE(6*760) 
760  format (6X,75M 
SIDE  OF  ALLOwA 
GO  TO  1000 
765  wRITE(6*770) 
770  format (6X«22H 
60  TO  1000 
775  WRITE (6.780) 
780  format (6X* 33H 


CATEGORY  2 COMMON  BLOCK  *A4*A?,23M  IS  NOT  GROUPED  BY00002210 

00002220 

00002230 

IDM1*IDM?,IDM3,I0M4  00002240 

double  PRECISION  OR  COMPLEX  VAPIAhLE  *A4.A2*56H  DOES00002250 
AN  EVEN  LOCATION  WiTMlN  COMMON  HLOCK  .A4.A2)  00002260 


00002270 

IDMl , IOM2  00002280 

variable  in  COMMON  BLOCK  *A4,A?,16M  IS  OUT  OF  ORDf R ) 0 0 0 02290 

00002300 

00002310 

THE  COMMON  BLOCK  SESCOM  DOES  NOT  APPEAR  IN  THIS  PROG00002320 

00002330 
00002340 
00002350 
00002360 
00002370 
00002380 
00002390 
00002400 

IDMl , lOM?  00002410 

THE  ASSIGNED  vAhIAMlE  *A4,A2.24H  IS  ILLEGALLY  REFERE00002420 

00002w30 

00002440 

IDMl * I0H2  00002450 

THE  variable  ,Aa.A2*30H  IS  REFERENCED  BUT  NOT  DEF INE00002460 

00002470 

00002480 

IDMl, 10M2  00002490 

THE  variable  *A4,A2*45m  IS  REFERENCED  ILLEGALLY  By  A00002500 


I0M1,1DM2 

THE  DO  INDEX  *A4,A2*13M  IS  REDEFINED) 

IDMl , IDM2 

THE  variable  dimension  ,Aa,A2,13H  IS  REDEFINED) 


TO) 


IDMl , IDM2 

THE  DO  parameter  *A4.A2,13H  IS  REDEFINED) 


THIS  MODULE  CONTAINS  NO  CATEGORY  2 COMMON  BLOCKS) 


IDMl , IDM2 

THE  variable  «A4*A2*60H  APPEARS  IN 
BUT  IS  NEVER  USED) 


HLE  RANGE) 

IDMl , IUM2* IOM3, IDM4 

MIXED  MODE  COMBINING  »A4*A2*6H  WITH  ,Aa*A2) 


00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 

1DM1*IDM2  00002590 

THE  ANSI  Function  name  ,Aa,A2*2TH  is  misused  in  THIS00002600 

00002610 
00002620 
00002630 

A category  2 OH  300002640 
00002650 
00002660 
00002670 

ARRAY  SUBSCRIPT  OP  IMPLIED  DO  PARAMETFR  MAY  LIE  OUTS00002680 

00002690 
00002700 
00002710 
00002720 
00002730 
00002740 
00002750 


IDMl 

INCORRECT  EXPONENT  AT  CHAR.  NO. 


13) 


GO  70  1000  OOOOP760 

765  WPITE(6*790)  lOMl  0000?770 

7<#0  FOPMAT  (6X»47M  VAP-CONST  CONFUSION  IN  SUbSCPIPT  AT  CHAR,  ><0.  tI3)  7000?780 

GO  TO  1000  0000?790 

795  WRITE(6t600)  I UM 1 • I DM? , j 0m3  0000?800 

600  FORMAT (6X .AOH  SliHSCPlPT  CONSTANT  OR  VAPlAtiLt  OF  TYPE  fA^.Aa.liM  ATOOOOPfilO 


% CHAR,  NO.  ,13) 

60  TO  1000 

d05  WRITE (6,810»  lUMl 


0000?fl?0 

0000?830 

OOOOPR40 


810  format (6X,5?H  TOO  MANY  SUBSCRIPTS  FOR  THIS  VARIABLE  AT  CHAW,  NO.  ,0000?850 


tI3) 

60  TO  lOOO 

815  NPIT£(6,820»  IDHl 


0000?860 

OOOOP870 

0000?880 


8?0  format (6X*51H  TOO  FEw  SUBSCRIPTS  FOR  THIS  VARIABLE  AT  CHAR,  NO.  , 0000?890 
fl3)  0000?900 

GO  TO  1000  0000P910 

8?5  wRITE(6,830)  IDMl  0000?9?0 

830  f 0PMAT<6X,52H  ILLEGAL  TYPE  IN  RELATIONAL  EXPRESSION  AT  CHAR,  NO,  ,0000?930 

*13)  onon?9wo 

GO  TO  1000  n000?950 

835  WPITE(6,840)  lOPl  00002960 

840  format (6X,40h  TOO  MANY  ARGUMENTS  IN  CALLING  SEQUENCE  ,13)  00002970 

GO  TO  1000  00002980 

845  toPITE(6.850)  00002990 

850  format (6X,41H  TOO  MANY  FUNCTION  REFS  IN  THIS  STATEMENT)  00003000 

60  TO  1000  00003010 

855  WRITE  (6*060’)  IDM1*I0M2  00003020 

860  Format (6X.26M  invalid  formal  parameter  ,A4,A2)  00003030 

60  TO  1000  00003040 

065  wRITE(6*870)  IUM1*I0M2  00003050 

870  format (6X.19H  ThE  FUNCTION  NAmF  ,A4,A?,33H  MAy  HAvE  BEEN  PR£ V I OUSL 0 0 00 3060 

*Y  MISUSED)  00003070 

GO  TO  1000  00003080 

875  WRITE(6*880)  lOMl  00001090 

880  format  (6X.  39M  ILLEGAL  FIELD  DESCRIPTOR  AT  CmAP,  NO.  *U)  00003)  00 

GO  TO  1000  000031 10 

885  WRITtl6*890)  00003120 

890  FORMAT (6X , 38H  TOO  MANY  FUNCTION  DEFINING  STATEMENTS)  00003130 

GO  TO  1000  00003140 

895  wRITE(6#900)  00003150 

900  format  (6X.71H  TOO  MANY  EXTERNAL  RpFERENCtS  IN  THIS  STATEMENT  - PR0000031  60 

SCFSSING  TERMINATED)  00003170 

GO  TO  1000  00003)80 

905  WRITP(6*910)  00003190 

910  format (6X.46H  statement  IS  TOO  LONG  - PROCESSING  TERMINATED)  00003200 

GO  TO  1000  00003210 

915  WRITE(6,920)  00003220 

920  format (6X.46M  StSCOMP  LIST  OVERFLOW  - PROCESSING  TERMINATED)  00003230 

GO  TO  1000  00003240 

925  WRnE(6*930)  00003250 

930  FORMAT (6X.63H  OvErFlOw  OF  INTERFACE  DEFINITION  TABLE  - PwOCESSlNG  00003?60 

^TERMINATED)  00003270 

60  TO  1000  00003280 

935  WRITE  (6*940)  0n0('3?90 

940,40PmAT  (6X*32H  TOO  MANY  t tJU  I V ALENCt  0 VARIAHLES)  00003300 

GO  TO  1000  00003310 

945  WPIT6 (6.950)  00003320 


950  format (6X,61H  TOO  MANY  VARlAHLtS  IN  THIS  STATEMENT 
SPMINATtD) 

1000  WRITE (6* 1 ) 

RETURN 

END 


PROCtSSiNG  TF00003330 
000033*»0 
00003350 

0000  ^360 

00003370 


POO 


SUhWOUTiNe  EXMP 

common  a ( 1 ,U(500).II)THL(11«SOO).IMT1D(3).LASTIO(3»,  ISRCH(3)  f 

• NXTIU{P)  . JPTP.N.M,  JTYP,LSTAMT,NP*  1KNC^M,L0C>ID.  IOTYP#NIO* 

• L0C*LTVP,ITYP. lHLKOT,MOOt • ItPPt  UU  S 
C0MH0N/l-UNC/IFNCPA(Sf2?)  • maRoS  t I APbS  ( 50  ) tFNCLOC(5)  tNFUNC 
C0HM0N/5TRING/NT YPE .N5TP,5TW (500 ) 

COmmON/LIST/M  15T,MNTFC,ISlihLT(A,P00).lNTFAC(6O0) 

COHHO^/hASHL'</I^'LOC^(p500)^NhLOC^'^Nh,NhR^CH 

Integer  fncloc,oppa(6)  ,hiTPnT,hiTijET 
INTEGER  D. ASTRlK , t QU AL S * ST R . A , RP AR 
DATA  OPPA/ IH* , 

DATA  ASTPlK/lh*/.tOUALS/lHs/,RPAR/lH)/,LPAk/lh(/ 

LP  = 0 

NFuNC=0 

K»0 

IExPST»NhLOCK* 1 
MAR6S*0 
K*K*1 
CALL  GNLE 
IF(JTYP  .EO, 


RETURN 
GO  TO  20 
,OR,  ITyP 
,OP.  ITYP 


.EO,  EQUALS)  RETURN 


IF(JTYP  .N£, 

IF (LTyP  ,E0. 

IF(ITyP  ,EQ, 

GO  TO  5 
I IF(OU) 

60  TO  5 
? IF{Oll) 

5 DO  10  1*1*6 
IF(U(1)  ,NE 
STR (K ) *-I 

IF  (I  ,EO,  4)  GO  TO  6 
IF(I  ,EO.  5)  GO  TO  7 
60  TO  100 

6 LP*LP*1 
GO  TO  100 

7 LP«LP-1 
GO  TO  100 

10  CONTINUE 

IF(D(1)  .NE,  EQUALS) 
STR(K)*-1« 

60  TO  100 

IP  1F(0(1)  .NE.  ASTRIK) 


.E(3. 

,£Q. 


6)  GO  TO  P 
35)  60  TO  I 


EO,  RPAR  .AND,  LP  .EO,  1)  RETURN 


OPRA(I) ) GO  TO  10 


GO  TO  IP 


60  TO  110 

M ,67, 


IF(0(P)  .EO.  ASTRIK  ,ANO 
STP(K)*-7 
GO  TO  100 

15  STR(K)*-0 
GO  TO  100 

PO  IF(JTYP  .NE,  7)  GO  TO  30 
IF (LOGIC  ,GT.  9)  GO  TO  ?5 
STP(K)«-(LOGIP*fl) 

GO  TO  100 

P5  STR (K) «LSTART*440000*M« 1000000 
GO  TO  100 

30  IF(JTYP  ,NE,  4)  GO  TO  40 
IF  (IDES  *EO,  0)  GO  TO  35 


1)  60  TO  15 


OOOOOOlO 
OOOOOOPO 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 10 
OOOOOlPO 
00000130 
00000140 
00000150 
00000160 
00000170 
0000016C 
0C.»0019C 
OOOOOPOC 
OOOOOPIO 
OOOOOPPO 
00000P30 
OOOOOP40 
OOQOOP50 
00000P60 
OOOOOP70 

ooooopeo 

OOOOOP90 

00000300 

00000310 

000003PO 

00000330 

00000340 

00000350 

00000360 

00000370 

000003BO 

00000390 

00000400 

00000410 

000004PO 

00000430 

00000440 

00000450 

00000460 

00000470 

00000460 

00000490 

00000500 

00000510 

000005P0 

00000530 

00000540 

00000550 


» 


STB  (K)=LSTART*<.?0000*m*  1 000000 
GO  TO  100 
35  COKTIMit 

STB(K)=LSTABT*AOOOOO*H*iononOO 
60  TO  100 

AO  IF  (JTyP  ,Nfc.  8)  60  TO  50 

STB(K)=USTABT*AlOnoo*M*inOOOOO 
60  TO  100 

50  IF’  (JTYP  .NE  . 5)  60  TO  55 

ST«lK)*U5TAfi7*A30Onn*M*)oonO00 
60  TO  ino 

55  IF(jTyP  ,Nfc.  3)  60  TO  fcO 

STB  (K)=L START  ♦A5(1000*M*innocOO 

IF(ITYK  ,NE.  B)  call  t prop (?3* lOMi , IO“?t 1UM3 f I0m4 ) 

GO  TO  100 

60  IF  (JTYP  .Nt*.  ?)  GO  TO  MO 

call  search 
IRETAso 

IF  ((vExT  ( JPTR)  LPAR)  GO  TO  6A 

IF(ISRCh(1)  .to,  0)  60  TO  6? 

IF (BIT6ET ( lOTHL (3*LOCl  , 1 , 1 ) .EQ.  \)  GO  TO  6? 

CALL  SWITCH 
IBETA»5 
GO  TO  63 

62  IPETArS 

IF  ( ISPCH  (?)  ,EO.  1 ) 60  TO  63 
lOTYPs? 

call  store 

LOC«MO 

00  70  I*1*NLIST 

IF  ( IStihLT  n • I ) ,NE,  lOTHLtl.LOCn  00  TO  70 
IF ( I5UBLT (2. I ) .NE,  IDTpL(?.LOC) ) 60  TO  70 
IF (bITGET ( ISUPLT (3. 1 ) . 1 0. A)  .NE,  4)  GO  TO  63 
lTP«bI TGET ( ISUHLT (3. I ) . 1 3.3) 

IDTbL ( 3.L0C) shITPUT ( IbThL ( 3.L0C)  .1*11) 
lOThL  13.L0C)3HITPUT  (IOTHLO.LOC)  .ITP.JO) 

GO  TO  63 
70  CONTINUE 

63  NFuNC*NFUNC* 1 

IF(NFuNC  ,GT.  5)  60  TO  120 
FNCLOC (NFuNC) *L0C 
60  TO  66 

64  IF(ISRCH(2)  .NE.  1)  GO  T(i  65 

IF(L0C  ,NE,  IFNCNM)CALL  EPROM ( 1 O.NXTIOU ) .NXTID(?) , IDMl , IOM?) 

65  IFcISRCHU)  .EO.  1)  GO  TO  67 
I0TYP»1 

CALL  STORE 
LOC*NIO 
GO  TO  68 

67  IBETA.HITGET  (lOTBL (3.L0C) .7.6) 

IF(L0C  ,NE,  IFNCNM)  go  to  68 
1BETA«0 
LOC-IOES 
60  call  IMPTyP 

I Alph«BIT6ET (IDTHL(3.LOC).10.3)-1 


00000560 

00000570 

00000560 

00000590 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000662 

00000664 

00000666 

00000668 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

000008AO 

00000850 

00000860 

00000870 

000008HO 

0O0CO890 

00000900 

00000905 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

ooooiooo 

00001010 

00001020 

00001030 

00001040 

00001050 


■.7 


JPTRiJPTR-1  00001060 

STR(K| =LOC»innOO»IALPM»100000»IBETA.loOOOOO*M  00001070 

100  NSTR'K  00001080 

IFiNSTR  ,GT,  SOO)  go  to  130  00001085 

GO  TO  200  OOOOIORO 

110  CALL  EPROR(23,IDM1,IOM2,IDM3,IDm*)  00001100 

RETURN  00001110 

120  CALL  ERBOB(90tIOMl,IOM2,IOM3,IDM»)  00001112 

STOP  0000111* 

130  CALL  ERR0R(91.I0H1,IDM2.IDM3,IDM*)  00001116 

STOP  00001118 

£NO  00001120 


SUBROUTINE  EXPWCK  00000010 

COPPON  A (1326) ,01500) t lOTHL (1).500).IN1TID(3).LASTIU(3), lSRCh(3) . 00000020 

• NXTIO (2). JPTW,N,M.JTYP,LSTART.N2, IE NCNH.LOG ID. IDTYP.NID,  00000030 

• LOC  ,L  TYP,  IT  YP  , I bLNUT.PODE  , lEHR.  Kits  000000*0 

COPPON/TYP/NOO,RHSTYP,NQP,N03,L6STYP  00000050 

dimension  IA(5,5)  00000060 

INTEGER  RMSTYP  00000070 

DATA  IA/1, 0,0, 1,0, 0,1, 0,0, 0,1, 0,1. I. 0,1. 0,1, 1.0, 0.0,0, 0.1/  00000080 

IF  ( lA  (LHSTYP.PMSTYP*!  ) .EQ.  0)  CALL  ERROR  1 27  , I DM  1 , Il)M2  , I DM3  , I DM*  ) 00000090 
RETURN  00000100 

END  00000110 
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SUHROUTINE  FLOiwCK 

COMMON  A ( 13?6) •0(500) flOTHL (11,500)*INITIO(3),LASTIO(3) , ISflCH (3) • 

• NXTID  (?)  • JPTR,N,M» JTYP,LSTART*N2, IFNCNH,L00ID*I0TYP»N1D* 

* LOC*LTYP. tTYP, IWLKOT.MOOE, IfPP, IDES 
COMMON/bAShLK/I&LOCK (?600) • NbLOCK , N0 , NbRNCH 
COMmON/OOLOOP/ISTACk (4,50) *nstack  * iloop* iovflw 
C0MM0N/LABEL5/STATRA (2,?00) *NLABEL 
COMMON/FLOw/IFL*IRP 

dimension  IPATM(IOO) •ISTCk (100) 

INTEGER  FLwLST(IOO)  • BR ANCm • ST A TR A 
INTEGER  bITPUT.bITGET 

equivalence  (IPATH(1),A{1)),(ISTCK(1),A(101))i(Fl«LST(1),A(?01)) 

IF  ( IFl  .EO,  -1 ) GO  TO  3000 

IPXsO 

NSTCKsO 

nflow=o 

NOC«0 

npths*o 

IBlKST*! 

CALL  ChklST 
WRITE (b.H) 

e FORMAT(lMl,3ftM******  results  OF  FLOW  ANALYSIS  *••*••//) 

5 DO  10  1*1 .NIO 
10  lOTbL (4, I ) sIDThL (B,  I ) 

1?  IF(NFlO,«  ,EQ.  ())  GO  TO  20 
NOC*0 

DO  15  l=l*NtLOw 

IF  (IAHS(FLWLST  ( I ) ) .NE.  I8LKST)  GO  TO  15 
NOC«NOC*  I 
15  CONTINUE 

IF(N0C  .GT,  IPP)  go  to  1500 
20  NFLOw*NFLOW*1 

1F(NFL0w  ,GT.  100)  GO  TO  4000 
FLWLST (NFLOw) »iblkst 

IEN0*8ITGET ( I BLOCK ( I bLKST ) • 24 • 1 2 ) - 1 
IF(1EN0  ,E0.  -1)  lENOsNBLOCK 
NBR«bITGET  ( I BLOCK ( I BLKST) *5 ,6) 

ISTARTsIENO-NnR^l 
IBLKSTsNKTBLK (ISTART.IEND) 

IF (NHR  .EO,  1 ) GO  TO  25 
FLWLST (NFLOw ) *-FL wLST ( NF LOW ) 

NSTCk«NSTCk*1 

1F(NSTCK  ,GT.  100)  GO  TO  5000 
ISTCK (NSTCK) «-N*TbLK ( I END, I END) 

IF (NHP  .to,  2)  60  TO  25 
DO  22  J»3*NHR 
NSTCKbNSTCk*! 

IF(NSTCk  ,GT,  lOO)  60  TO  5000 
ISTCK (NSTCK J SNXTBLK ( lENO-J*?, I END) 

25  1F(1BL«ST  ,nF.  0)  GO  TO  12 
NPATB»0 
NPTmS*NPThS* 1 
DO  1000  I»1,NFL0W 

branch* lAHS (F|  *1  ST ( I ) ) 

ISTART«HRANCh* 1 


00000010 

00000020 

00000030 

00000040 

00000050 

OOOOOObO 

00000070 

00000060 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000260 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000360 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000460 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 


NXBLOKsblTGET { IbLOCK (HPanCM) ,24, 12) 

00000560 

IF(NXHLOK  ,EQ,  0)  NXHLOKsNHLOCK* 1 

00000570 

ISL=BITOET { IBLOCK (BBAnCM) ,32,8) 

OOOOOSHO 

ILOOPsbITGET ( I BLOCK (BRANCH) ,12*6) 

OOOOOS90 

NHRsPITGET 1 1 block (BRANCH)  ,6,6) 

00000600 

iend=nxhlok-nhr-i 

00000610 

IF  ( ISL  ,EO.  0 ) GO  TO  45 

00000620 

NRATH=NPATH» 1 

00000630 

IRATH (NPATM) sSTATRA ( 1 , ISL) 

00000640 

STATHA(2,ISL)*BITPuT(STATRA(2,ISL),1 

• 18) 

00000650 

4S 

IF ( IHLOCK ( ISTaPT)  ,LT,  inOO)  GO  TO  1000 

00000660 

DO  boo  J«ISTART, ItNU 

00000670 

IT*1PLOCK(J)/1000 

0000068(^ 

LOC= IHLOCK (JI-IT»1000 

000CO690 

GO  TO(50, 60t70,fl0,<)0. 100. 2001  tIT 

00000700 

50 

IF  (&ITGET  ( IDTHL  ( 3.LOC)  , n.  1 ) .tQ.  1) 

GO 

TO 

120 

00000710 

IF  ( lOTHL  (4.L0CI  .EQ.  21  GO  TO  55 

00000720 

IF (IDTHL (4,L0C)  .EQ.  4)  GO  TO  180 

00000730 

52 

IDTHL (4.L0C) «1 

00000740 

30 

if(hitget(IDtbl(3.loc) .iT.ii  .eo,  oi 

GO 

TO 

500 

00000750 

KTyPE=BIT6ET(I0TBL(3,L0C) ,10.3) 

00000760 

NXQV=LOC 

00000770 

53 

NXQV'IOTBL ( lO.NXQV) 

00000700 

IF(NXQV  ,E0.  loo  go  to  500 

00000790 

IF (BITGET ( IDTHL (3. NXOV ). 10.31  .EO.  KTyPE)  GO  TO  54 

00000800 

IDTBL (4,NXQV)=0 

00000010 

GO  TO  53 

00000020 

54 

IDTBL (4 .NXOV  1 >1 

00000030 

GO  TO  53 

00000040 

55 

IFdLOOP  ,EQ.  0)  GO  TO  52 

00000050 

57 

IFiLOC  ,E0.  ISTACK (4, ILOOP) ) 60  TO  110 

00006860 

IF ( ISTACK (3, ILOOP)  ,EO,  0)  GO  TO  52 

00000070 

ILOOP* ISTACK (3, ILOOP) 

OOOOP80O 

GO  TO  57 

00000890 

60 

IF  ( IDTBL (4,L0C)  ,tO,  0)  GO  TO  140 

00000900 

IF  (TOTBL (4,LOC)  ,EQ.  3)  GO  TO  130 

00000910 

GO  TO  500 

00000920 

70 

IF(BITGET(IDTBL(3,LOC) ,13,1)  ,EQ.  1) 

00 

TO 

120 

00000930 

IF(1OT0L(4,LOC)  .EO,  2)  60  TO  75 

00000040 

T2 

lOTBL  (4, LOO  *2 

00000950 

GO  TO  500 

00000960 

75 

IFdLOOP  ,EO.  0)  GO  TO  72 

00000970 

77 

IF(L0C  .£0.  I5TACK(4, ILOOP))  60  TO  110 

00000900 

IF (ISTACK (3. ILOOP)  .EQ.  0)  GO  TO  72 

00000990 

ILOOP' I STACK (3. ILOOP) 

0000 1 000 

GO  TO  77 

0000)010 

80 

IF(B1T6ET(IDTML(3.L0C),13.1)  .eo.  1) 

GO 

TO 

120 

00001020 

IF (IDTBL (4.L0C)  .to.  2)  GO  TO  85 

00001030 

02 

I0TBL(4,L0C)*3 

00001040 

60  TO  500 

00001050 

85 

IFdLOOP  ,EQ.  0)  60  TO  8? 

00001060 

07 

IF(L0C  .eo.  ISTACK (4, ILOOP) ) GO  TO  110 

OOOOlOTO 

IF(ISTACK(3, ILOOP)  ,EO.  0)  GO  TO  82 

00001000 

I LOOP* I STACK (3, ILOOP) 

00001090 

GO  TO  07 

OOOOl 1 00 

■)0 


VO  If  cIUTml  (<»«Lnr » .St,  j)  c,o  to  iso 
GO  TO  soo 
100  lOTbL  (4  ♦LOO 
60  TO  SOO 

I HO  JL00P«HlT6t  T ( !C  TSL  i3,L0C)  , 

IHS  IFdLOOP  ,tO.  JL(»OP)  00  TO  ISO 
IlOOPsISTACk  (3flL0l»P) 

IF  MLOOP  .to,  0)  00  TO  30 
GO  TO  l^S 

200  IF  { lOTHL  (4*L0C)  .tij,  Ol  60  TO  140 
IF  ( lOTbL (4.L0C ) .to.  3i  GO  TO  130 
lOTHL (4.L0C) *4 
60  TO  SOO 

no  itRCss? 

00  TO  400 
1?0  IEBC«68 
GO  TO  400 
130  lERC'S'rf 
60  TO  400 
140  lERCaTO 

60  TO  400 
150  IERC*7l 
GO  TO  400 
160  URC*7? 

400  IR)(«1 

IF  (bITGET ( lOTML (3*LOC) ,?0f 1 ) .EO,  1)  60  TO  SQO 
lUTbL (3.L0C) *HITPUT ( IUT8L (3*L0C) • 1 •?0) 

CALL  ERROR  { I ERC  . I OTHL  ( 1 , LOC  ) • I UTML  ( ? . LOC  » . U»«  3 ♦ I Om4»  j 
IFdERC  ,NE,  70  .OP,  NPATM  ,tO,  0)  60  TO  600 
WRITE  (6.410)  dPATM(K),Ksl,NPATH) 

410  F0RWAT(6XdSM  along  TH€  PATH*d0l6)) 

500  CONTINUE 
1000  CONTINUE 

1500  IF  (FLWLST (NFLOW)  .GT.  0)  60  TO  1600 
IbL»^ST*lABSdSTCK  (NSTCK)  ) 

IF (ISTCk (NSTCrd  .LT,  0)  FlwLST (NFlOW) *-F  LwlST (NFlOw ) 

N5TCK«nSTCk-i 

NOC«0 

60  TO  5 

1600  NFL0W*NFL0W-1 

IF(NFL0W  .GT.  0)  60  TO  ISOO 
IF(NLABEL  ,EU,  0)  60  TO  ?OlO 
DO  2000  J*l.NLAhtL 

IF (BIT6ET (STATRA (2.J) *6.6)  .EO.  20)  GO  TO  2000 
IF(BITG£T(STATRA<2,J)  dH.3)  .EQ.  1)  60  TO  2000 
WRITE  16t  1000)  STATRAd.J) 

IRX*1 

1600  F0RMAT(6X,57M  THERE  IS  NO  COMPLETE  PATH  THAT  CONTAINS 
IMBEPf 16) 

2000  continue 

2010  IFdRX  .EO.  0)  WRITE  (6f?020) 

2020  F0RMAT(//6X.16H  NO  ERRORS  FOUND) 

WRITE (6t2100»  NPTMS 

2100  format (//////6X.25H  NUMBER  OF  PATHS  ChECKE0-*I6) 
RETURN 

3000  WRITE (6t3001 ) 

3001  FORMAT (//3lX*57H  FLOW  ANALYSIS  WAS  NOT  PERFORMED  OUf 
•PROGRAM) 

IFL«IRP*1 

return 

4000  WRlTE|6f4001) 

4001  FORMAT (//29X.63H  TABLE  OVERFLOW  DURING  FLOW  ANALYSIS 
SIS  TERMINATED) 

RETURN 

5000  WRITE (6«5001 ) 

5001  FORMAT (//29* •63H  STACA  OVERFLOW  DURING  FLOW  ANALYSIS 
SIS  TERMINATED) 

RETURN 

END 


00001  \ 10 
oonoi 120 
00001130 
00001 140 

onnoi ISO 
00001 160 
onooi 1 70 
00  00  n HO 

00001 1 90 
0000 1 20U 
00001210 
00001220 
OOOOl 230 
00001240 
000012SO 
00001260 
00001270 
000012H0 
00001290 
00001300 
00001 310 
00001320 
00001 330 
00001 340 
OOOOl 350 
00001 360 
OOOOl 370 
00001300 
00001 390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001 4S0 
00001460 
00001470 
00001400 
00001490 

ooooisoo 

ooooisio 

00001S20 
00001S30 
00001S40 
O0001S50 
00001S60 
00001S70 
STATEMtNT  NUOOOO1S0O 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 

TO  ERRORS  IN  00001670 
00001660 
00001690 
00001700 
00001710 

- FLOW  ANALYSOOOOl 720 

00001730 

00001740 

000017S0 

- FLOW  ANALYSOOOOl 760 

00001770 

00001780 

00001790 


')! 


SUBPOUTINt  FmCSTR 

common  ft  1 13?^))  ,0  ISOO)  flOTBL  (UtSOOtlNlTIDO)  .LAST  10  (3)  , ISRCM  (3)  , 

• NXTID{?) • JPTP,N,H, JTYP,LSTART,N?, IFnCNM.LOGID, lDTYP*NIDt 

• loc,ltyp, iTYp, iHLKOT,Mone, lepR, loes 

C0MM0N/LIST/NLIST»NINTFC. ISUHLT (4,200) ,InTFaC (600) 

C0MM0N/FuNC/IFNCPA(S«2?) ,MarGS, IAPGS (SO) ,FNCL0C (S) UNC 

COMMON/PASPLK/IBLOCK (?S00 ) , NMLOCK , NH , NbPNCH 

INTEGER  FNCLOC,BITPuT,HITGET 

IF(NFUNC  ,EQ,  0)  RETURN 

00  40  I*1,NFunC 

UOC«FNCLOC(I) 

IF (BITGET ( IDTHL (3,LOC) , IP, 1 ) ,EO.  U 60  TO  SO 
NARGsIFNCPA  (1,1) 

IVAR=0 

ITPaBITGET ( IDTHL (3,LOC) ,10,3) 

IF (hlTGET ( IDTHL (3*L0C) , 1«, 1 ) ,EQ,  1)  GO  TO  ?0 
IOTBL  (3,LOC)  =HITPOT  ( I l)T  tiL  ( 3 , UOC ) ,1  , 1&) 

00  5 Jsl,NLIST 

IF  (lOTBL ( 1 ,UOC)  ,NE,  ISUKLT(1,J))  GO  TO  5 
IF (IDTBL (2,LOC)  ,Nt.  ISUHLT(?,J))  GO  TO  S 
IDTbL (3*L0C) =HITPUT ( lUTML ( 3,LOC) 

LISTLCsJ 
GO  TO  21 
5 CONTINUE 

CALL  t PROP (52, 10^1 , I DH?, I0M3, I0H4) 

NLIST=NLIST*1 

IF(NLIST  .GT.  200)  GO  TO  60 
ISU6LT ( 1 ,NLIST) =IUTHL ( 1 ,LOC> 

ISuBLT (?,NLlST)=IUTbL (2,L0C) 

IDTbL (3,LOC) smITPUT ( lUTHL (3,L0C) ,NLlST»32) 

iptr=nintfc*i 

IF(ITyP  ,E0,  B .and,  I *EO.  1)  ITPsO 
IS(iBLT(3,NLIST)=bITPUT(0,ITP*13) 

ISUbLT (3.NLIST)=BITPUT ( 1 SUBLT ( 3 *NL I ST ) ,NARG,6) 

ISUBI T(4,NLIST)=IPTR 
NINTFCsIPTP^  (NAPG-l) /3 
IF(MNTFC  .GT,  600)  GO  TO  70 
no  10  J=IPTR,NINTFC 
1 0 INTFAC ( J) sIFNCPA { I , J-IPTR*2) 

GO  TO  40 

20  LISTLC=6ITGfcT(lUThL(3.L0C) ,32*9) 

21  IPTPsISUBLT (4,L ISTLC) 

IF (BITGF T ( ISmhLT ( 3.LISTLC) , 14, 1 ) .tO.  1)  GO  TO  2? 

NAR2=HITGET ( IS06LT(3,LISTLC) ,6,6) 

IF  (N/'PG  ,NE.  NAP2)  CALL  ERROR  (26,  IOTPL  ( 1 *LOC)  , lUTBL  (?,LOC)  , I 7,  IP) 
NAPGS=«IN0(NARG,NAP2) 

GO  TO  24 

22  IVAprl 

IF (NAPG  ,LT,  2)  CALL  EprOR ( 26 « 1 OTHL ( 1 , LCC ) , 1 OTHL ( 2 , L UC ) , 1 7 , I B ) 
NAwCSsNARG 

ITPlshlTGET ( INTF  AC ( IPTP) , 3,3) 

NDlMlsHITGET ( INTF AC ( IMTP) ,6, 3) 

24  IF(ITYP  .to.  e ,AN0.  I .EO,  1)  60  Tu  ?S 

IF  (MlTGt  T ( ISUHLT  (3,LISTLC)  , 10,4)  .tO.  4)  ijO  TO  25 
JTP»hITG€  T ( ISUHLT (3, L ISTLC) ,13,3) 


OOOOOOl 0 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 

ooooooeo 

00000090 
00000100 
000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000265 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
000003SO 
00000355 
00000360 
00000370 
000003H0 
00000390 
00000400 
0000041 0 
00000420 
00000430 
00000440 
000004SO 
00000460 
00000470 
00000480 
00000490 
onoooson 
ooooosio 

00000520 

00000530 


IF(JTP  .Nt.  ITP)  CALL  t PROP ( 49 , I OTBU 1 • LOC ) • I OTBL ( ? t LOC ) • I 7 , 1 8 ) OOOOOS40 

25  NUPTP« IPTR* (NAPOS-l) /3  OOOOOS50 

KOUNT*0  00000580 

DO  3?  K»IPTP*NUPTP  00000570 

IC0Ll*-6  00000580 

ICOL?»-3  00000590 

00  3?  Jsl,3  00000600 

KOUNT=KOUNT* 1 00000610 

IF(K0UM  ,6T«  NAPGS)  go  to  AO  00000620 

IC0L1*IC0LI*9  00000630 

IC0L2*IC0L2*9  00000640 

IFdVAP  ,Eq,  1)  GO  TO  26  00000650 

ITP1*BITGET ( INTFAC (K) , ICOLl#3)  00000^60 

N0IMI«8IT6ET(INTFAC<K) ,ICOL2t3)  00000670 

26  ITP?*PITGET (IFNCPA ( I ,K-IPTP*2) • ICOLl ,3)  00000680 

N0IM?«BITGET ( IF NCR A ( I •K-IPTR*2) • ICOL2*?)  00000690 

IF(NDIMi  ,nE*  N0IH2)  CALL  ERPOP  < 50  « KOUf^T  • I 7 , 1 8 d 9 \ 00000700 

IF(ITP2  ,E0,  0)  GO  TO  3?  00000710 

IF(ITP1  ,EQ,  0)  GO  TO  28  00000720 

IFdTPl  ,NE,  ITP?)  CALL  ERROR  ( 5 1 , ROUNT  • I 7 • 1 8 , I 9 ) 00000730 

GO  TO  32  00000740 

28  INTFAC (R)=H1TPUT ( INTFAC (K) , ITP2* ICOLl)  00000750 

32  CONTINUE  00000760 

60  TO  40  00000770 

50  CALL  STANCH)  00000780 

40  CONTINUE  00000790 

RETURN  00000800 

60  CALL  ERR0R(92*I0Mld0H2*I0M3,I0M4)  00000802 

STOP  00000804 

70  call  ERP0R(93*lDMl,IUMi»,IDM3*I0M4)  00000806 

STOP  00000808 

END  00000810 


SUBROUTINE  FORM 

COMMON/LVAPGS/LVFUNC,LVVAPG,LVVAO*LVVPOS.LVVTYP*LVVALf 
♦ LVMEAD*LVVNVL.LVUtST*LVVALS(  lO)iLVTYPEnO»  *LVSKIP 
COMMON/LVTABL/LVTSI7.LVMAP  ( 1) /L WSt  U/L V 5 I t L VSOSP ( 1 ) 

common  /HL/  m0L.ACTI0N*F(JNC1 •FuNC?«FuNC3*LEF t,rigmt*stping 
COMMON/VAR/VFOR,NChAP,NChAPP,CHAR,NUICT 
COMMON  /TyP/  NAPWAY*TYPE1 .TyPE?,EPRFlG 
COMMON  /STRING/  NTyPE ♦NSTO • STR 
INTEGER  bITPUT.HiTGET 
INTEGER  VFOR  (30)  tCMAR.STR  ( n 
LOGICAL  ERRFLG 
DATA  IX/IHX/ 

C EXECUTE 

GO  TO  PSOOO 
25001  CONTINUE 

IF(CMAR  .N£,  IX)  NOICTs-NOICT 
NCHARP=NCMARP*  1 
ST«(NChARP)=NOICT 
IF(,NOT,  ERRFlG)  return 
NChARsNCHAP* 1 
NC*1 ♦ (NChAPp-1 ) /4 
ICHARsbITGET (CHAR,H,0) 

VFOP  (NO  sblTPiiT  (VFOR  (NC)  . I CHAR  , 8*NCMAR  ) 

IF(NCHAk  ,eo.  A)  NCMARsO 

c complete 

RETURN 

25000  CONTINUE 

GO  TO  25001 
END 


oooonnio 
00000020 
00000030 
oooonoAO 
00000050 
00000060 
00000070 
00000000 
00000090 
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00000120 
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00000280 
00000290 


SUBBOUTINt  FnwBKL 

00000010 

COMMON  A ( 13?N)  ,0  (bOO)  . lOTHL  (11, BOO.INITIUO), LAST  10(3)  , ISBCM  (3)  , 

00000020 

» NXTIOl?)  . JPTfi,N',M,  JTYB,LSTA0T,N?  , IFNCNM,LO(j11),  lOTYB.NIO, 

oof'ono30 

» LOC.LTYP.ITYP.IbLKOT.MODK.  lEBP,  IljtS 

00000040 

INTEGtB  H(50) ,L 

00000050 

dimension  ICllO) 

00000080 

Data  IC/75.77,7(,,91  .<y?,93.96.97,10T,l?N/ 

00000070 

DATA  IM/IMM/ 

OOOOOOftO 

00  TO  (100. in, 20. 100, *0,100, 100. 1001 ,JTYP 

00000090 

10 

call  CAA (U.M.NyTIOi 

00000100 

BETUBN 

000001 1 0 

?0 

DO  ?S  1=1,10 

00000120 

IE (0 ( I ) .NE , IM)  00  TO  25 

00000130 

CALL  CAI (D, I-l ,N2) 

00000140 

1E(N2  ,LT.  1)  GO  TO  110 

00000150 

M=N2,I 

00000160 

IE (M  .6T.  500)  CALL  ERBOO ( 5 , lOM I , I DM2 , I OM3 , I DM* ) 

00000170 

jptb=lstart»m 

00000180 

IST«I.l 

00000190 

DO  22  J*IST,M 

00000200 

ICHAR=BITGET (0(J) ,8,8) 

00000210 

DO  23  11=1,10 

00000220 

lEdCHAR  ,EQ.  IC(ID)  GO  TO  120 

00000230 

23 

CONT INUE 

00000240 

22 

continue 

00000250 

IE(ITYP  ,EQ,  28)  BETUBN 

00000260 

IE(N?  .GT.  ♦)  CALL  £MBOB(5,IDM1,IDM2,IOM3,IDM*) 

00000270 

RETURN 

00000280 

25 

CONTINUE 

00000290 

CALL  error (3, I DM1 , IOM2, I Dm  3,  UiM* ) 

00000300 

RETURN 

00000310 

40 

CALL  CAI (D,m,n2) 

00000320 

100 

RETURN 

00000330 

110 

CALL  ERROR ( 7, IDMl , I DM2, 1 Dm  3, I DM*) 

00000340 

RETURN 

00000350 

120 

CALL  error (23, IDMl , IDM2, IDM3, lOM*) 

00000360 

RETURN 

00000370 

ENO 

00000380 

SUBROUTINE  FRMAT 

COMMON  A n3?6) ,0(500) , lOTHL (11,SOO»,INITIO(3),LASTIO(3) , ISRCm(3) , 

• NXTID  (?)  , JPTR,N,M,  JTyP,LSTART,N?,  IFNCNM.LOfalO,  If)TYP,MD, 

• L0C,LTyP, ITYP, IbLKOT.MODE, lERP, lOES 
COMMON/FORMAT/IOtSST, IDESND, IGPST . I GPND , I GRP , StPST , St PNU, 

1 DIR, ICON, ISEP 
dimension  RPLOC(20) ,IALPH(6) 

Integer  a,rploc, AiCH,ppAR,BLANK,sEPST,stPNO,oiR 

DATA  BLANK/IH  /, AICH/1HM/,LPAR/1H (/.RPAR/IH) / 

DATA  I ALPM/ 1 HF , 1 mo, 1 hr, IHM, 1 HA, I HT/ 

IFRMTaO 
Do  A 1*1,6 

IF  (NEXT ( JPTR)  ,Nt.  lALPH(I))  GO  TO  70 
A CONTINUE 
NSTART»JPTR 

IF  (NEXT  (JPTR)  .NE.  LPAR)  GO  TO  70 
00  I-'  1*1, N 

IF('  ’t(JPTR)  ,E0,  ?)  60  TO  I 
IF  (o^  ) R .GT,  N)  60  TO  I? 

60  TO  10 
1 JPTRsJPTR-1 
CALL  GNLE 

IF  (JTYP  ,N£,  3)  GO  TO  10 

Jl*JPTR*l 

IhsQ 

DO  5 J=LSTART,J1 
IF  (IH  ,EU.  1)  GO  TO  3 
IF(A(J)  ,E0,  AICH)  1H»1 
60  TO  5 
3 6(J)=HLANN 
S CONTINUE 
10  CONTU'UE 
12  NPARso 
NRP=0 

DO  20  1*NSTART,N 


IF  (A ( I ) . 

NE. 

LPAR) 

GO 

TO 

15 

NPARsNPAR 

♦1 

IF(NPAR  , 

GT. 

3)  GO 

TO 

70 

GO  TO  20 

IF (A  ( I ) . 

NE. 

RPAR) 

GO 

TO 

20 

NPARsNPAR 

-1 

NPPsNRP*! 

RPLOC (NRP) *I 

IF(NPAR  ,LT*  0)  GO  TO  70 
20  CONTINUE 

IF(NPAR  .NE.  0)  GO  TO  70 
JPTP*RPL0C(NRP)*1 

IF  (NEXT (JPTR)  .NE.  HLANK)  GO  TO  70 
DO  60  1*1, NRP 
IGPNDaRPLOC ( I ) 

DO  25  J»1,N 
K*IGPNO-J 

IF(A(K)  .NE.  LPAR)  GO  TO  25 

IGPST*N 

GO  TO  30 
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00000020 
00000030 
OOOOOOAO 
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OOOOOOBO 
00000090 
00000  I 00 
000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000160 
00000190 
00000200 
00000210 
00000220 
0000O230 
000002AO 
00000250 
00000260 
00000270 
00^00260 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
OOOOOAOO 
00000410 
00000420 
O000OA30 
00000440 
OOOOOaSO 
00000A60 
OOO0OA7O 

oooooabo 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 


?s  continue 

30  calc  group 

lEdGPP  ,eo,  0)  RETURN 
IF (I  .EQ.  NRP)  GO  TO  6S 
JPTR'IGPST-l 

31  IPvsJPTR 

IF  ( IPREV  ( IPV)  .EO.  2)  GO  TO  31 
IGPST»JPTR*2 
3S  StP$TaIGPNO*l 
0IR«1 

CALL  SEPAR 

IFtlSEP  ,NE,  \)  GO  TO  ^0 
IGPnO=S£PNO 
GO  TO  SO 
40  JPTR=SEP$T 

IF (NEXT (JPTR)  .NE,  RPAR)  GO  TO  70 

SEPSTsIGPST-1 

OlR*-l 

CALL  SEPAR 

IF  (ISEP  ,NE.  1 ) GO  TO  4S 

IGPSTsSEPNO 

60  TO  SO 

45  IF(A(SEPN0)  .NE,  LPAR)  go  TO  TO 
SO  00  SS  JslGPST,I6PN0 
A ( J) spLANK 
55*C0NTlNUt 
60  CONTINUE 
65  IFRHTbI 

return 

70  CALL  ERR0P(7,1Dm1,IDM2,10M3,1PR4) 
RETURN 
END 


OOOOOS60 
00000570 
OOOOOSflf 
onoonsRO 
00000^  0 
OOOOOMO 

ono ' ' 

000 

oono.i 

O00C06S0 

00000660 

00000670 

000006PO 

oonoo6PO 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000760 
000OO7R0 
OOOOOPOO 
OOOOOR  1 0 
00000520 
00000530 
00000840 
000008SO 
00000860 
00000870 


S7 


SL'rPC.J’T  I (?{•  f P-TL 

Cuk  a { n?^  ) ,U  (=»00  ) , 1 1 T^L  { 11  *bOO  ) ♦ IM  T U*  { 3)  ,l.flST  I L'  ( 3 ) * iSKC«  ( .■» ) , 

® N*Til  {/^  ) , JP'TR.r.  ,M  , jTYP.I.STAWT  If- • I ITYP'.NIP. 

® U'C.LTYH•ITYH.IhL^UT.M(■!l^  ,n-‘J&,n  tS 
CUN-MON  /(.'LO^'  AL  /KrLf'  .Nhc,  f-'  .P'L^TttL  { ?f>0  ) ft  ATTdL  n no  ) * 1 ( 1 on  ) 

CC’^»*<;iN/LIST/^LI'-T.  .InTFC.I  SumL  T(4,?00).lNTPAC(6nn) 

COm^('N/-»  ASTE  / 1 1 i ^*  ( M ) 

iNTtGEk  HLKT^'t.txTTr3L*^lTGtT 
Data  jSh_S(i) 

DATA  I^l/^ML,/%lJ/^'^JJ/ 

• filTb  (e,?) 

? FOP-«AT  tlHl) 

!►  (^.hLK  .Erj,  0)  oO  TO  h 

^ = -l 

DO  b 1 = 1, NhL'' 
n =»«  ♦ 1 

iNL'b  » =rL  ^ ThL  ( I ) 

IS?=hl  T('t  T ( I SuHLT  { ?,  iM-t  » ) , 3?.  1^) 

ITb  ( lOP,  3)  I S^TL  T ( 1 , t)  , I Sut^L  T ( ? , , I S7 

3 KOPMaT  (bx  . ah  C(,n 
A vONTI^i'f 
h kP  ' Tt  ( I OP  , 7 ) '•  i'l  t 

7 F OP»'AT  ( bx  , AH  j=l/Sx,HH  = , I 1/Hi  , 1 3«  1ft  10  I = 1 . I 3/Sx  J = J-1) 

IF  HLrt  ,tO,  0)  o(f  Tu  ?? 

rr-1 

t-0  ?0  I = 1,\Alk 

f =»■  ♦ 1 

K^=1P00♦^ 

INUF  x=HL^THL  ( I ) 

IF7  = HlTL'tT  f ISiihLT  (3,  INDEX  ) , 3?,  I A) 

WAITF  (I Op, 10)  AP,IS2,K,KK 

10  FORPAT(bx,AH  t»f>  ,Ia,5M  K = 1 , , Ih/Bx  . JH  I X , ip  (n  ) =1  / 1 * , j 4. , 
t Qh  CONTINUE) 

IF  ( ICC^P  { JSt«:,  ISUHLT,  IM'EX  ,4  ) .tO.  0)  00  TO  ?0 
WRITE  < lOR,  IS)  K 

15  F0paaT(Ax,3H  I X , I?,  7h  ( 1 7)  = 10/bx,  3^^  I x , I ? , 7h  ( ^ o ) = I 1 / 

♦ bX,?H  IX,I?,7H(?3)=1?) 

PO  CONTINUE 

2?  NAPG=H iTOt T ( lUTHL ( 3, 1 ) ,7, h) 

DO  30  r=l,NARG 
1 F ( 1 ,m;  , NAPi* ) 00  TO  PS 
U‘U^'  ( t 1 = ID 
00  TO  30 
I0UP(I)=1J 
30  CONTU'UE 

WRITE  ( lOP,  35)  If.TfiL  ( 1 • 1 ) , IDTHl  (?,  1 ) , { IDU^  ( I ) , I = 1 , nAAG  ) 

35  FORMAT(5x,0m  Call  • 44 • Ap, 1 h ( , a I Ap/5x , 1M1 , IX , p?a?i 
WRITE  ( lOP.AO) 

40  F C)R^*4T  (RX , ?4H  U fPOOt  .EN,  3)  00  TO  5/5X,l4h  CALL  »-l>Oin(J)/ 
f 3x,1Ph  5 ENDFiLt  3/PX,lPH  10  CON T I NuE /5 X , 1 pM  CALL  C^PAaE/ 

5 5x,10-  REwiNO  l3/bX.10M  Rt*lNO  l4/5x,10H  PEwlNu  15/5*, «-h  STOP/ 

f SX,4H  tNU) 

RE  TURN 
END 
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0 0 0 0 0 «*  0 4 . 
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SUBROUTINE  GLOTAB  00000010 

CORRON  A ( 132ft) .0 (SOO) , lOTRL (11.500).lNlT10t3),LASTIO(3), ISHCM(3) • 000000?0 

• NAT  ID  (?)  , JPTR.NfR, JTYP.LSTARTtN?, IFnCNR.LOGIU. IOTYP.NID*  000000  30 

• loc.ltyp,ityp.iblkot,rooe,ierr.ioes  ooooooao 

CORRON/GLOBAL/NBLK  ,NREF  .NSUBS.BLKTML  (200).£ATTBI.  (100).  ISUHS(  100)  00000050 

CORRON/LIST/NLIST,N1NTFC,ISUBLT(A,?00) .INTFAC (fcOO)  00000060 

Integer  BLKTBL.BITGET.EATTHL.OLAStS.T)  00000070 

DATA  OLAS/AMUSEP.AR  Sup,  AHPL  IE  . IMD.  1M  .aHSUBR.AHOiJTI  ,*MNE  R,  00000080 

T AHDDUL  , IRE  .AHFuNC  , AMTION,  AM  ROD.3MULE.1M  , AMANC  I , A ''LL  AR  . AMY  SU.  00000090 
% AMBPPO.AMGRAM.AMANSI  .AM  F(jr.,  AMCT  10,  IMN,  IM  .AMMAIN.AM  PRO.AMGRAM,  00000100 
» IM  .IM  ,AMEaTR.aMAORU,amInAR,AMY  SU.aRBPR,/  00000110 

Data  iblnk/ih  / 00000120 

RRITF  (6, 1 ) 00000130 

1 FORMAT ( IMl ,a8a,?3M  GLOMAL  REFERENCE  TABLE)  OOOOOIAO 

IF(NPEF  .EQ.  0)  GO  TO  ?5  00000150 

WRITE (ft,?)  OOOOOIftO 

2 FORRAT(//50A.20M  EXTERNAL  REFERENCES)  00000170 

DO  20  I»1,NREF  00000180 

IN0EA*EXTTBL ( I ) 00000190 

JaBITGET(ISURLT(3,InDEx) ,10, A)  00000200 

WRITE  (ft,  10)  ISUBLT  ( 1 .INDEX)  , ISIlHLT  (2,  INDEX)  ,(KLAS(II.J»1),II»1,5)  00000210 

10  FORMAT (A5X.AA.A?,AX.5AA)  00000220 

20  CONTINUE  00000?30 

25  IF(NBLK  ,E0.  n .OR,  (NBLO  .EO.  1 .AND.  I SUBL  T ( 1 , MLF  TBL  ( 1 ) ) .E(3.  000002A0 

f IBLNO))  GO  TO  AO  00000250 

WRITE (6,30)  00000260 

30  FORMAT (//A9X , 23m  LAmELLED  COMMON  BLOCK S/ A3 X , 1 1 M mLOCK  NAME.7X,  00000270 
» 5M  SI2E,7x.ftM  CLASS)  00000280 

DO  38  D=1,N8LK  00000290 

INDEX=hLKT8L ( J)  00000300 

ICaT*HITGET( ISUMLT (3. index  ),10,A)-ft  00000310 

ISZ*MIT6ET(ISUPLT(3,INDEX) ,32.15)  00000320 

35  FORMAT ( A6X, AA . A2.5X , lh,5X .9MCATEGORY  ,1?)  00000330 

WRITE  (ft,  35)  ISUMLT  ( 1 , INDEX  ) , ISUBLT  (2,  INDEX)  ,IS7,ICA’'  00000 3A0 

38  CONTINUE  00000350 

AO  WRITE (ft,A5)  00000360 

a5  FORMAT (///A8X , RAM  SUBROUTINES  ENCOUNTERED)  00000370 

DO  ftO  lsl,NSIiHS  00000380 

INDE X=ISUBS( I ) 00000390 

J = BIT(-.ET(ISUMLT(3,INDEX),10,A)  OOOOOAOO 

WRITE  (ft, 1 0 ) ISUBLT ( 1 , InDE  X ) , I SUBLT (2, INDE  X),(KLAS(II,J,1),II*1,5)  OOOOOAIO 
60  CONTINUE  OOOOOA20 

RETURN  00000A30 

END  OOOOOAAO 


SUSPOUTlNf  r,Ntt 

CO^*MON  A ( i ^pf,)  .O(S00).IOTHL(ntbO0/*IMTlL>n)fLASTlD(?),  ISPCH(3>  , 

• N)(TlO(?),JPTM,N,H,jTrP,L^TAPT.N?,  I^NC^Vf LOOID,  IDTyP»MO» 

• LOC*LTyP,ITyP,  lhLM)T,MOijt . ItPP#  IntS 
COMmoN/LOoK/L<'<’  .LO«>ST 
CG^’M(h/f.fcALM'/l^e.<»L.lPfeL'^l5*IP 

IMtOkP  A,L),«^LA^^fPLl'^^t'JllALC«^LASH,RPAR•COMHA•ASTPlK, 

I AlCH.Ot-CPT 

DATA  hLANR/lH  /,PLUS/l^*/,'^lNuS/lH-/,EOUALS/lHs/,c;LASh/lrt//, 

• PPAP  / IN)  / .COf'f.  A / 1 M,  / ,ASTPIK/lh*/,AICM/lMh/,LP«»^/l^'</*OFCPT/lH,/ 
jTyP=0 

NxT=Nt)iT  ( JPTh) 

1F(NxT  ,F(j,  HLank)  RLTUPN 
LSTAWT=v»PTh-1 
IF (hxT  .to,  PLUS)  GO  TO  1 
IF(SXT  ,tO.  PPAk)  »30  TO  1 
IF(KxT  ,tg,  MjNj Sj  00  TO  J 
IF  (NxT  ,iU,  SLASh)  30  TO  \ 

IF  (NxT  .to.  ro^^-A)  GO  TO  I 
IF(KXT  ,fcO,  tOlJALS)  00  To  1 
60  TO  ? 

1 JTyP=1 
H»1 

GO  TO  90 

? »F(KxT  ,N£.  ASTRIK)  00  TO  A 

IF (NF XT ( JPTP)  .Nt,  ASTPIK)  60  TO  1 

M*? 

OTvPsl 
GO  TO  90 

A IF  (NXT  ,NE*  LPAP)  oO  to  40 
IF (LSTAPT  .to.  1 ) 60  TO  10 
IMIsLSTaRT-1 

IF  ( IPPtV  ( iMl  ) t , 3)  (jO  to  1 
10  JPTPsLSTAPT^l 
NXTsNF  XT (JPTP) 

IF  (NXT  .fc(j.  nLAf.K)  60  TO  l?0 

IF  (^XT  ,f't.  PLU«-  ,ANu.  NXT  ,NF,  MINUS)  60  TO  ?2 
IPsjPTP 
60  TO  ?A 
IPsjPTP-1 
?A  call  PtALCK 

IF(IPF.AL  .to.  0)  60  TO  1 
IF  ( U t S .to.  1 ) 60  TO  I 
JPTPslhfcLNO* 1 

IF /Nfc XT ( JPTP)  .Nt,  COMMA)  60  TO  1 
NXTsNk  XT ( JPTW) 

IF  ( NXT  ,Nt.  PLl'S  ,ANU,  N»T  ,Nt.  MINUS)  GO  TO  30 
IPsJPTw 

<’0  TO  3S 
30  IPsjMW«l 
3S  CAi L alCn 

IF  n hMl,  .to  . 0 ) 60  TO  1 ?n 
IF  ( ILt  S ,tO,  1 ) 6(1  TO  1?0 
JPTPs  iFk  LM'*  I 

If  (Nt XT { JPTP)  .ft,  PPAP)  60  TO  l?0 
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00000260 
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00000440 
00000450 
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00000470 
00000460 
00000490 
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00000550 


hO 


I 


I 

40 

4? 

44 

SO 

S4 

56 

57 
f)0 

ss 

67 
70 

HS 
Hh 

H6 


JTyP«6 

HsjPTR-LSTAPT 
GO  TO  90 

IF(NXT  .NL,  OfCPT)  60  TO  SO 
ITP*ITYPE  ( JPT>^) 

GO  TO  (42,  «.<»  ♦ 1 ?0  ) • I TP 

LOGSTsLSTAPT*! 

call  LOGCmk 

IF  (LOG  ,E0.  0)  GO  TO  120 
JTyPs7 

MsJPTP-LSTART 
60  TO  90 
iPsLSTART 

call  kEmLCK 

IFdNEAL  ,EQ,  0)  60  TO  120 
JTYPS4 

MslRtLNO-LSTART*! 

GO  TO  90 
jptp=lstart 

IF  (ITYPE  (JPTW)  ,Nt,  2)  GO  TO  hS 
IF  ( ITYP  .£0.  ?*•)  GO  TO  S4 
1P=L5TmRT 

call  >^ealck 

IF  ( iRt  AL  ,tO , n ) GO  TO  S4 

JTYP=4 

M=IRfLMj-LSTA»  Tvl 
GO  TO  90 

jptp=lstawt  ♦ 1 

IF  (ITYPE  (JPTP)  ,E0.  ?)  GO  TO  67 
GO  TO  66 

IF (jPTw  ,GT,  N)  GO  TO  60 

(jO  to  6S 

Msn-LSTART*  1 

JTYPsS 

GO  TO  90 

IF(A(JPTP-1)  .NE.  AICm)  GO  TO  67 

IF(ITyP  .EO.  H ,0P,  ITyP  .to.  28  .OP. 

m=jptr-lstapt-i 

JTyP=6 

GO  TO  90 

IF (JPTP  .6T.  N)  GO  TO  1?0 

m=n-lSTapt*1 

IF(t-  .GT,  500)  «*500 

JTYP»3 

GO  TO  90 

JPTP*LSTAPT 

IFdTYPE(JPTP)  .NE.  1)  GO  TO  l?0 
IFdTYP  .EO.  28)  GO  TO  100 
CONTINUE 

IF (ITYPE (JPTP)  .Nt.  3)  GO  TO  86 

M«jPTR«LSTAPT-1 

JTyP*2 

GO  TO  90 

IF (JPTP  .GT.  N)  GO  TO  87 
GO  TO  88 
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00000660 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000760 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

ITYP  .EO.  27)  GO  TO  70  00000920 

00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
000011 00 


hi 


100 

M«1 

00001  1 10 

JTYP«? 

00001 1 20 

GO  TO  90 

0000] 1 30 

87 

MxN^LSTART^ 1 

OOOOUAO 

w‘TYP«? 

OOOOl 150 

90 

continue 

00001 IfeO 

DO  91  L*l.M 

00001170 

LL»LSTART*L-1 

000011 80 

0(L)*A(LL) 

OOOOl 1 90 

91 

continue 

00001200 

JPTRsLSTART*M 

00001210 

CALL  SQUEt? 

00001220 

call  formll 

00001230 

return 

00001240 

120 

continue 

00001250 

JTyP=8 

00001 2^0 

RETURN 

00001270 

ENO 

000012BO 

SUtsWOkiTlNL  G<\TCN 

COMMON  A ( 1*3?^)  ,D(500). ID  THL  (11*600). INITIl»(3),LaSTIU(3),  ISWCh  ( 3)  , 

• NJiTIO(?).jPTR,N,M,jTYP.LSTAkT,N2',  I F . LOG  I (' , lOTYP.MD. 

* LOC.LTyP,  ITYP.  I»LKi>T  ,mOOE  . ItkP,  U'*tS 
COMHON/LAttELS/STATPA ( ? , an  0 ) . M AhE L 
COK«(’N/hMShL*'/Ir‘LOCR  (2600)  .NbLOCK  .Ntt 
0I^*tNSlON  lALPH(A) 

iNTfcC^tP  STATPA.hLANK 

IMt-OFP  ^ITPUT 

DATA  IALPH/1M6. IHO.IMT, IMO/ 

DATA  riLA\K/lM  / 

DO  5 1=1.^ 

IF  (^F)iT(JPTN)  .Nfc.  lALPh(I))  hO  TO  10 
6 COMlKUd 

call  ONLL 

IF  ( JTYP  .NE.  S)  GO  TO  in 
CAtL  ST6PCh 

ST ATP A (?.LOC) shl TPOT {STATPA(?,LOt).l,l?) 

IF (NE Y T ( JPTP ) .nE.  MLAhK)  GO  TO  10 

KhLOCKaNbLOCK  * 1 

IhLOCf'  (NbLOCK  ) sLOC 

NHPKCH=1 

Nhel 

PE  TUPn 

10  Call  EhpOP ( 7, IDPI , IUm?, I0M3.  IDH4) 

PE  TUPN 
END 


oooooniu 

oooonnao 

00000030 
oononoAO 
onooonso 
cnoonobo 
nonoonTo 
oo(ionopo 
0 0 0 0 n n p n 
onnooi 00 
0 0 0 0 n u 0 
000001 ?o 

000001 30 

noooni AO 
nooon 1 so 

OOOOOlbO 
00000170 
ooooo 1 80 

00000190 
00000?00 
0000021 0 
ooooo?ao 

00000230 

OOOOOpAO 

oooooaso 

000002^0 

00000270 


SUbROUTiNt  OROUP 

COMMON  A ( 1326) ,L>  150  0) • IDTbL (11*500). INITI0(3),LASTID(3)  . ISRCH (3) 

• NXTlD(?),jPTk*N*M,jTYP,LSTART*N?, I F NCNM * LOO 1 0 * I DT YP * M D * 

• LOC*LTyP. ITYP*IbLHDT,MOOE*ItPR,  IDES 
COMMON/FOPMAT/IDESST*  IDESNO,  IOPST*  ICjPnD,  igrp.sepst.sepno* 

1 DIR. ICOM, ISEP 

INTEGER  A,PPAP,StPST,StPN0*01P 

DATA  PPAR/lM)/ 

jPTR=IGPST*1 

IF (Nt kT ( JPTR)  .EG,  RPAP)  60  TO  ?0 

iit  PST  = JPTR-1 

DIR=1 

CALL  StPAR 

UdSEP  ,Eq,  -1  ,Ow,  ICOM  .EQ,  1)  GO  TO  30 
IFdSFP  ,E0.  0)  IO£SST=SEPST 
IFdStP  .Eg,  1)  IU£SST=SEPNO*l 
JPTB=IUESST 

IF (Nfc XT ( JPTR)  ,EO.  PPAP)  60  TO  ?0 

StPST=IGPNO-l 

DIP=-1 

CALL  SfPAP 

IFlISEP  ,EO.  -1  .OP.  ICOM  ,EO.  1)  GO  TO  30 
OIP=l 

10  CONTINUE 

CALL  DESCHP 

IF (IDES  ,EO,  0)  GO  TO  40 

SEPST=IOESNO*1 

JPTR=SEPST 

IF (NE XT (JPTR)  .to,  RPAP)  60  TO  20 
CALL  SEPAP 

IF (ISfP  ,EO,  0 .OP,  ISEP  .Eg.  -1)  GO  TO  30 

lOfc  5ST  = StPNU* 1 

JPTPsIDESST 

IF(NtXTlJPTR)  ,NE,  PPAP)  60  TO  10 
20  I6RP=1 
RETURN 
30  IGPP=n 

CALL  EPPOP ( 7*  H)M1 , I DM?, I DM3, I DM4) 

PETUPN 

40  CALL  EPPOR  (8H  . IDESST  dOM?,  IDM3,  IDM4  ) 

IGPP*0 

PETUPN 

End 


00000010 
OOOOOOPO 
00000030 
OOOOOOAO 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001  10 
0000O120 
00000130 
00000140 
00000150 
00000160 
onooo I 70 
000001 80 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
0000031 0 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
0000  0‘»80 
00000390 
00000400 
00  0004  1 0 
00000420 
00000430 


I 


!■>  ! 


SUBROUTINE  GRT 

COMMON  A U3?6)  .0(500)  • lOTBL  (n*500)«lNlTlO(3).LASTIO(3)  . ISRCh  (3)  , 

• NJ(TI0<?)  .JPTP.N.M^JTYP.LSTART.N?,  IFNCNM.LOG  10*  lOTYP.NIO. 

• LOC.LTYP.ITYP.IBLKOT.MOOE.ItPR.IOeS 

COMMON/GLObAL/NbLK ,NPEF,NSUBS.bLKTBL (200)*ExTTBL(l00) . lSUflS( 100) 
COMMON/LIST/NLIST.NINTFC* ISUBLT (4,200) , INTFAC (600) 
integer  EXTTflL,bLRTbL,btANK*8ITPUT,bITGET 
DATA  BLANK/IM  / 

WR1TE(6,1) 

1 FORMAT(//) 

ISUB«IMTI0(?) 

IF(lSUb  ,£0.  0)  60  TO  15 
10  lSUBB[DTBL(4,ISUb) 

IFdSUb  .EO,  0)  60  TO  15 

IF (biTGET ( lOTML (3, ISUb) , 19, I ) .EO.  1)  GO  TO  10 
IF  (NfiEF  ,EO,  0)  60  TO  4 
00  3 K»l ,NREF 
INDEX«£XTTBL (K) 

IF ( lOTBL ( 1 , ISub)  .EQ«  lSUbLT(l«lNUEX)  .ANU,  I OTBL ( 2 , I SUM ) .E0« 

$ ISUBLT (2, INDEX) ) 60  TO  10 

3 CONTINUE 

4 NR£F«NREF«1 

IF(NREF  ,6T,  100)  GO  TO  50 

EXTTBL (NREF) -BITGET ( IDT8L ( 3, I SUB ) , 32,9) 

IF(MOOE  .EO,  1)  GO  TO  10 

KLAS*bITGET ( ISUBLT (3, EXTTBL (NMEF) ) , 10,4) 

IF (KLAS«E0.1,OR.KLAS.EQ«2)bRlTE (9) lOTBL ( 1 , I SUB ) , I DT8L ( 2 , 1 SUB ) 

60  TO  10 

15  IBLK*INITI0(3) 

20  IF (IBLK  .to.  0)  RETURN 

1F(I0TBL(1*IBLK)  .EO.  BLANK)  GO  TO  45 
00  25  I*1,NLIST 

IF(I0T6L(1,IBLF)  ,nE.  ISUBLTU*!))  60  TO  25 
IF(I0TBL(2,IBLK)  .NE.  ISUBLT(2,I))  GO  TO  25 
LISTLC-I 

IF(BIT6ET(1SUBLT(3,I),1Q,4)  ,EQ,  T)  GO  TO  30 
IF(6ITGET(ISUBLT(3,I),32,15)  .NE,  0)  GO  TO  30 
ISZ«I0T8L(5,IHLK) 

ISUBLT (3, I ) -BITPUT ( 1 SUBL T ( 3, 1 ) • 1 S7 • 32 ) 

60  TO  30 
25  CONTINUE 

CALL  ERR0R(62,I0TBL ( 1 , IBLK) ,IOTBL (2*IBLK) ,I0M3, I0M4) 

NLIST-NLIST41 

ISueLT(l,NLIST)«IOTBL(l«IBLK) 

ISUBLT (2, NLIST) •lOTBL (2, IBLK) 

1SZ*I0TBL(5,IBLK) 

ISUBLT ( 3*NLIST ) -BI TPUT ( I SZ*1 0,10) 

LISTLC-NLIST 

30  IDTBL <3, IBLK )-BITPUT (lOTBL (3t IBLK) ,LISTLC, 32) 

IF(N6LK  .EQ,  0)  GO  TO  40 
00  35  K«1,NBLK 

IFdlSTLC  ,EO«  8LKTBL(K))  QO  TO  45 
35  CONTINUE 
40  NBLK*N6LK4l 

IF(NBLK  «6T,  200)  60  TO  60 
BLKTBL(NBLK)«L1STLC 
45  18LK«I0TBU4,  IBLK) 

00  TO  20 

50  CALL  ERR0R(59,I0M1,I0N2,I0M3,I0M4) 

STOP 

60  call  ERROR(60,IDM1,IDN2,IOM3,IDM4) 

STOP 

END 
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Function  icomp ( i vap, jvAR,NVAp,NPOto ) 

OIHtNSlON  IVAP M ) » JVAP INPOWf 1) 
ICONP«0 

IFdVAPd)  «NE«  JVAP(l«NVARn  NCTUPN 

1F(IVAP(2)  ,NE«  JVAP(?,NvAK) ) fttTUHN 

ICOmPbI 

Re  TURN 

END 


SUBROUTINE  IHPTVP 

COMMON  A < 13?6) ,0(500) • IUT6L (11. 500),INITU)(3), LAST  10(3) . ISRCH(3) « 

• NXTI0(2) , JPTR.N.M, JTYP.LSTART.N?, IFNCNM,L06IO. lUTYP.NIO. 

• LOC.LTYP, ITYP, IBLKOT.MODE, lERR, lUES 
DIMENSION  IaLPM(6) 

INTEGER  O.BITPUT.BITGET 

DATA  lALPM/lMI , IMJ, IMK, IHL. IHM,1MN/ 

IF (BITGET ( IOTBL (3.L0C) , 11 • I ) ,E0«  1)  60  TO  ?0 
IDTBL  ( 3.L0C)  ■tJiTPUT  ( IOTBL  (3, LOC)  • 1.11) 

00  10  I-1.6 

IF(0(1)  ,NE.  IALPH(D)  GO  TO  10 
IOTBL  (3.L0C)  ■8ITPUT(  IDTBLO.LOC)  .4.10) 

60  TO  20 
10  CONTINUE 

IOTBL ( 3.L0C) •HITPUT ( IOTBL ( 3.L0C) . 1.10) 

20  IFUTYP  ,tE.  10TBU3,\.OC>*6nPUTaDTBU3,LOC),l,21) 

RETURN 

END 
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OOOOOOlO 
00000020 
00000030 
Q000Q04Q 
00000050 
00000060 
00000070 
00000060 
00000090 
00000100 
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00000130 
00000140 
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00000160 
00000170 
00000160 


SUhPOUTlNE  IMT 

COMMON  A ( 1 3?6)  .0(500)*  lOTHL  (n*50  0).lNlTlO(3),tASTiO(3),  IS»Cm  ( 3)  • 

• N)lTID{2)  * JPTP.N.M.jTYP.LSTAkT.N?,  I FnCNm  , LO(?  I D • lOTYP.NJO. 

• LOC.LTYP. IT YP, I oLKDT.MODE.lt PR, IDEs 
COMMON/FUNC/IFNCPA (5,??) ,MAPGS.lAPbS(50) ,FNCL0C(5) *NFUNC 
COMMON/STRInG/NTYPE .NSTP.STP (500) 

common/ T YP/NOQ,  pHST  YP  ,N(J?,Nu3.LMSTYP 
COHmON/lIST/nLIST.NINTFC, ISUhLT(4,200) , INTFaC(600) 
COMMON/tiASBLK/loLOCK  (?500)  , NOLOCK  , NO  , NHPNCH 
C0mm0N/STF(INC/NSTFNC,  ISTFnC  ( 10  ) 

INTEGER  RHSTyP 

INTEGER  A,EQUALStCOMMA,RPAR,STR 
INTEGER  HITPuT.HITGET.FnCLOC 

DATA  EQ)JALS/1M*/.LPAP/  IM  ( / .COMMA  / 1M,/,RPAR/  Ih)  / 

'N*0 

t^lYPE*! 

IPTPsJPTR 

call  gnle 

IF ( JTYP  .Nt.  2)  GO  TO  40 
CALL  search 

IF  tNt)lT  IJPTR)  ,Nt.  tCJDALS)  GO  TO  N 
LOC2S0 

IF  (ISRCH(2)  .Nt.  1)  GO  TO  2 

IF(L0C  .NE,  IFNCNM)  call  tRPOwno.NxTlO(l)  ,N)ITIU(?)  .IDM3.IDM4) 
IFN«1 

CALL  IMPTYP 
LOC?=LOC 

2 IF  ( ISRCm ( 1 ) ' .Nt . 1)  GO  TO  IH 
IF(L0C2  .t(J.  0)  GO  TO  4 
LOCsIDES 
60  TO  5 
18  IDTYPsl 

call  store 

LOCsNIO 

IF  (LOC?  .t(i.  0)  GO  TO  • 
lOTbL (3.L0C) =I0TCL (3.LOC2) 

GO  TO  S 

4 call  IMRTYP 

5 LHSTyPsdITGET ( IDTHL (3.L0C)  .10,3) 

IF  (LHSTYP  .EO.  S)  NTYPEs2 

GO  TO  30 

6 IF(A(JPTW-1)  .Nt.  LPAR)  go  to  40 
IF  ( ISRCh  ( 1 ) .EO,  1 ) G(»  TO  12 

IF  { ISRCm (?)  ,NE . 1 ) GO  TO  15 

CALL  ERmOP  (10.NjtTlLMl),MfTID(2).IOM3,lOR*) 

GO  TO  H 
15  lOTYPs? 

CALL  STORE 
LOC*MD 
GO  TO  H 

7 CALL  S-ITCh 
H CALL  ImpTyR 

LHSTYPshlTGE  T ( IUTwL ( 3.LOC) . 1 0.3) 

IF(LMSTyP  ,EfJ,  5)  NTYPt»2 
NAPGsO 
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(>h 


ITYP»35 

NSTFNC*NSTFSC*  1 

IF(MSTFNC  .GT,  10)  GO  TO  60 

ISTFNC<NSTFNC)=LOC 

LOCl=LOC 

IDTBL  (3,L0C) srtITPUT ( IDTBL ( 3,LOC) •1*19) 
10  CALL  GNL6 

?)  60  TO  50 


.to. 

.F.O. 


CALL  EPROP ( 5a •NARG* lOMp, I OH 3, I OH A ) 
GO  TO  ?0 


?0 


IF(JTYP  ,NE, 

NARG=NARG« 1 
CALL  SCaRCH 
IF  { ISRCH {?) 

IF  i ISRCM ( 1 ) 

IDTYP=1 
call  STORfc 
LOC=^ ID 
60  TO  ?5 

IF (mITGF T ( lOTHL (3*LOC)  • I • 1 ) .EQ.  1)  CALL  ERROR  ( 54  * N AR6 , I 7 . 1 8 • I 9 ) 
?5  CALL  IHPTYP 

IF  (NEXT  ( JPTR)  ,E(J.  COHMA)  GO  TO  10 

IF(AIJPTR-I)  ,Nt.  RPAP)  GO  TO  40 

IDTBL (3, LOCI ) »bITPUT ( I UT bL ( 3 *LOC 1 ) .NARO,  7) 

IF  (NEXT  (JPTR)  .EO,  EQUALS)  GO  TO  3? 

GO  TO  40 

12  IF(BITGET(I0THL(3.L0C)  .Ifl)  *nE.  1)  GO  TO  7 
CALL  IMPTYP 

LhSTYPsbITGET ( I DTbL ( 3 • LOC ) • I 0 • 3 ) 

1F(LHSTyP  ,EQ.  5)  NTYPE=? 
jPTRsIPTP 
jBLOCrvsNoLOCK*  l 

call  ExPR 
CALL  Parse 
CALL  HLKSTR 

IHLOCK ( JHLOCK ) sIHLOCN ( JHLOCK)  - 1000 
60  TO  32 

30  NbLOCKsNbLOCK  ♦ 1 
JhLOCKsNbLOCK 
I BLOCK (NbLOCK)slOOO*LOC 
3?  NTMS=0 

IPTRsJPTW 
call  ExPR 

IF(JPTW  ,LE.N)  call  error  ( 7, IDMi , IOm?, IUM3* 10M4) 

call  parse 
call  fncstr 
call  F.XPRCK 

IF  (ITYP  ,EO,  35)  60  TO  36 
CALL  HLKSTR 

I BLOCK  (NHLOCK*! ) * I BLOCK {JBLOCK) 

00  34  KsjbLOCK.NbLOCK 
34  IhLOCK (K ) * I BLOCK (K ♦! ) 

IF  (LTyp  ,eq,  1 ) RE  Turn 
36  IF (MODE  .NE,  1)  GO  TO  35 

IF(PhSTYP  ,EQ,  3 .OR.  PMSTvP  .CO,  4)  RETURN 

IF  (NSTR  ,LT.  6)  RETURN 

JPTR»IPTR-1 


CALL  CNVRT 


fw 
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RETURN 

0000 11 00 

35 

IF(NFUNC  .EO.  0)  RETURN 

0000]  1 1 0 

IF(IFN  ,EQ,  1)  RETURN 

00001  1 tfO 

DO  3B  J<1,NF(inC 

onool 1 30 

LOC*FnCLOC ( J) 

onool 140 

INOEX-bITGET  ( IDTBL  (3.LOC)  ,32.“») 

noool ISO 

KLAS*BITGET(ISUBLT(3,IN0EX) ,10,6) 

00001160 

IF(KLAS  ,NE.  1 .AND.  KLAS  .Nt.  2)  GO  TO  30 

00001 1 70 

CALL  CALL2 

00001160 

RETURN 

0000  1 1 

36 

CONTINUE 

OOOOlPOO 

RETURN 

oonoi?io 

40 

CALL  ERROR (7, I DM1 , I OM2 , I OM3 , I DM6 ) 

nnooi??0 

RETURN 

0000 1 ?30 

50 

CALL  ERROR ( 15. I DM1 , I DM2 , I DM3 , I OM6 ) 

0000 1?40 

RETURN 

onooi?so 

60 

CALL  ERROR (89, lOMl, I0M2,10M3, I0M6) 

00001?60 

RETURN 

0000l?70 

END 

00001?60 

SUBPOUTINE  INTRIN 

COMMON  * (1326) ,0(500) . lOTPL ( 1 1 ,500 ) , INIT ID ( 3) .LAST ID ( 3) , ISBCM(3) . 
• NKTID (2) ,JPTR,N,M, JTYP,LST*RT,N2, IFNCNM.LOGID, IDTYP.NID, 
$LOC,LTYP,ITYP.lBLKDT,MOCE,IERR,IOES 
COMMON/LIST/NL IST.NINTFC.ISUBLT (6,200 ) ,INTF AC (600) 

INTEGER  BIT6ET 
JO  100  I'l.NLIST 

1F(BIT6ET(ISIIBLT(3.1).10.A)  ,NE.  A)  00  TO  100 
NXTID(1)«ISUBLT(1,I) 

NXTID(2)*ISUHLT(2.I) 

CALL  search 
CALL  COMSCH 

IFCSPCH(l)  .EO.  1 .OR.  ISRCH(3)  .EO.  1) 

f CALL  EPR0R(Ta,NXTI0(1),NxTID(2),IDM3,10M*) 

100  CONTINUE 
RETURN 
END 
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SUwkOUTlNt  10 

CO^»-UN  A { 1 3?4.)  ,L*  (SOO)  t I0T8U  n .500)  • INITIO  (3)  ,LASTI0<3)  , ISRCh(3)  , 

• KXT  If)  (?)  . JTyP.LSTAPT.N?,  I F NCM«  .LOG  I 0 . I OT  tP  . N 1 0 • 

• LOG .LT YP. I TYP. I HLKOT .MODE . lEPP. lOES 
COMMO^l/STPI^G/^  TYPE.NSTP.STW  (SOO) 

COpmon/LAHEL^/STATPA (?,P00) .nlabel 
COPMON/r'ASHLK  / IPLOCK  (?50  0)  . NhLOCK  . NH  . NBRNCM 

COMMON/ I npout/nc all . In. I OP 
dimension  I ALPHI ( A) . I ALPM? (S) . I ALPM3(8) 
iNTtOe  p A, ST  A TP A .PP AW, COMM A, blank 
iNTEGtP  blTPUT,hlTGET 

DATA  LpaW/1h(/,WPAP/1H)/,C0MMA/1H./.BLANK/1H  /.IC/ImC/ 

DATA  1 ALPHl/lhP . ImE • IHA. IMO/ 

DATA  I ALPM2/1HW, IMP. IMI , IMT. IME/ 

DATA  I ALPH3/1MC. IMO. IMN. IHTf IMI . IMN, IHU. IME/ 

IFPMT«0 

IF ( ITYP  ,E0,  1?)  GO  TO  10 
DO  5 1*1  .A 

IF  (Nf  XT  (JPTP)  .Nt.  lALPMKD)  GO  TO  5o 
5 CONTINUE 
GO  TO  ?0 
10  DO  IS  1*1.5 

IF  (NEXT  (JPTW)  .Nt.  lALPMPd))  60  TO  SO 
IS  CONTiNUt 

?0  IF  (NExT(JPTP)  .Nt,  LPAW)  GO  TO  50 
CALL  GNLt 

IF ( JTYP  .EO.  ?)  GO  ro  ?? 

call  tPwOP (??, lUMl • lOH?, I0M3. I0M4) 

GO  TO  ?H 
2?  CALL  SfcAPCM 

IF(ISPCH(p)  .Eg.  1)  call  error ( 10.nxTI0( I ) .NXTIO (?) . I0M3. IOma) 

IF ( ISPCm ( I ) ,EQ.  1 ) GO  TO  ?5 
IOTyP  *1 
CALL  STOPt 
LOC»MO 
?5  CALL  IMPTYP 

IF  (MITGET ( lOTHL (3.L0C)  . 1 .1 ) .60.  1) 
i;  CALL  F PROP  ( lA.NxTIO  < I ) .NXTI0(2)  . I0M3,  IOMA) 

IF (MITgET ( lOTHL (3.L0C) .10.3)  .NE.  A) 

^ CALL  ERR0R(?2.I0mi,Ium?,I0M3.I0MA) 

NBLOCKsNbLOCK.  1 
I6L0CK (N6LOCK)«?000*LOC 
2b  IF  (NEXT ( JPTR)  .EO.  COMMA)  60  TO  AO 
JPTR*JPTR-1 
GO  TO  30 
AO  call  GNLE 

IF  (JTYP  .NE.  5)  60  TO  ?6 
CALL  STSPCM 

STATRA(?.L0C) *BITPUT (STATPA (2.L0C) .1.1?) 

60  TO  ?9 

?ft  1F(JTYP  .NE.  ?)  60  TO  50 
CALL  SFAPCM 

IF(ISWCM(?)  .EO.  1)  CALL  ERPOP ( 1 0 . NxT 1 O ( I ) . NX T I U ( ? ) . I Dm J , I ON? ) 

IF(ISPCM(1)  .EO.  1)  GO  TO  ?7 

IDTYP*l 


00000010 

ooooonpo 

00000030 

OOOOf'OAO 

ooooooso 

OOOOOONO 
00000070 
OOOOOOMO 
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00000100 
000001 10 
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CALL  STOPfc 
L0C«NI0 

?7  CALL  IHPTYP 

IF  (H1TG6  T ( IUThL  OfLOC)  , ) • 1 ) .NC.  U 
% call  LPP0P(4l,I0HltIUM?,IUM3,I0HA) 

30  IF (NtXT < JPTB)  ,Nt.  «PAP)  GO  TO  50 
IF  > T ( JPTP)  *Nfc.  HLANm  60  TO  35 
IF(ITYP  ,£g,  1?  ,anO.  1F««T  .to,  0) 

$ CALL  FppOP(44,IDM1,IUN?,IUM3«10M4) 

GO  TO  36 

35  JPTP«JPTP-l 
CALL  FxPR 
NTYPt«3 

call  parse 

CALL  lOSTR 

36  IF<N0DC  .Nt.  1 ,AN0,  ITyP  ,E0.  U)  60  TO  37 
RETURN 

37  IFdTYPEd)  .EO,  ?)  GO  TO  A? 

Ad)«lC 

RETURN 

A?  ^jfllTE  ( I0P*A5I  (A  ( n , {•U6t  « (IALPH3d)  « i*ua) 
45  format (7?A1 ) 

Ad)«IC 
00  47  I«?.6 
47  Ad)«MLANK 
RETURN 

50  CALL  EPROR<7,IOH1«IOM?»IOM3«1DN4) 

RETURN 

END 
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SUBOOOTiNe  lOSTF* 

C0M>*ON  A (1326)  ,D(SOO)*IOT8L  (11*500). IN1T10(3),LASTI0(3)  . iSRChO)  , 
• N*TI0 (2) , JPTP.N.H, JTYP.LSTART.N?. I F NCNH , l06 1 0 * I OT YP . N I D • 
ULOC.LTyP, 1 TyP. IhLKUT .mode , IERP* IDES 
COMmON/FuNC/1FnCPA(5.?2) • MARGS • 1 ARGS ( 50 ) *FNCL0C(5) .NFUNC 
COMMON/ HASHL^/ I block (250  0) * N6L0CK , nB , NHRNCm 
integer  BITGFT 

00  100  1 = 1 . MARGS 
N8L0CK=N8L0CK ♦ 1 
IVP=I 

1C0L=S 

LOCsHI TGE  T ( I ARGS ( IVR) . I COL .9) 

ISuBshITbET ( IARGS (IVR) . IC0L*2i 2) 

IF ( ISUb  .Eg,  1 ) 60  TO  90 
IF ( ISuh  .Eg.  2)  GO  TO  20 
IF ( ITyP  .£0.  11)  GO  TO  80 
IF  ( I TYP  ,EQ,  12)  00  TO  90 
20  IDEF=hIT6ET ( I APGS ( I VR) . I COL *7.5) 

NMOvF*I-IDEF-1 
DO  30  J=l.NMOvt 
ITEMP=nhl0Ck-J 

30  IhLOCK ( 1TEMP*1 ) xlbLOCK ( I TEMP) 

IpLOCR ( ITEmP) xiOOO*LOC 
NHL0Ck=N8L0Ck*1 

1 BLOCK (NBLOCK ) =60  0 0*LOC 
GO  TO  100 

MO  IHLOCK (NbLOCK)xlOOO*LOC 
GO  TO  100 

90  IbLOCK (NoLOCK ) =2000*LOC 
100  CONTINUE 
RETURN 
ENO 
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FUNCTION  IPREV(IA)  ♦ 

COMMON  A ( 1 32^) .U(500),IUTmL(11,noO).InITIu(3),LAsT1u(3), ISPCm ( 3) , 

• NXTIP(2)  •JPTP•^.M,JTYR,LSTART.^2.IF^C^M,l.0GI^|*IDTYP•MU. 

* LOC.LTyP. ITyR, IhLKOT.MOOF . I Err, IDES 
INTEGER  A, Blank 

data  HLAnK/IH  / 

DO  10  1 = 1. N 
J=IA-I*1 

IF  (j  ,FO.  0)  GO  TO  20 
IF(A{J)  ,E0,  mlANK)  go  to  10 
IPPEV=ITYPE (J) 

JPTP=lM-I 
RE  TURN 
10  CONTINUE 
20  IPREV*3 
JPTP=n 
PE  TliPN 
END 
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Function  iTvPtduj 

COnhON  A(i3?fr),I)<S00)»I0TBL(U.500)fINlTlU(3)*LASTlU<3).  ISWCh  ( 3)  . 

• N)iTIO(?),jPTP,N,h,jTyP,LSTAhT,N?*  1FnCNM,LO<jID*  IUTyP*MO, 

• LOC,LTYP,ITYP,lHL»^DT*MOO£*ItR«*IOtS 
INTEGFW  hiTGET 

NxTsNExT ( ID) 

IVALsbITGfcT (NxT ,P*H) 

IFdVAL  .GE,  193  .and.  IvAL  .LE.  ?Ol)  GO  TO  10 

IFdVAu  .GE.  P09  .AnI  IvAL  .LE.  ?17)  60  TO  10 

IFtlVAL  .GE.  ??b  .and,  IVAL  .LE . ?33)  GO  TO  10 

IFdVAU  .GE.  ?40  .AND.  IvAL  .LE.  ?49)  60  TO  ?0 

I TYPE*3 
PE  TURN 
10  lTYPf*l 
RETURN 
?0  ITYPE*? 

RE  TURN 
END 
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suepnuTiNE  ldgcmk 

COMMON  A(13?6)*D(500).IOTHLdl*500)dNlTlU(3),LASTIU{3)  . 1SRCm(3)  . 

• NxTinr?),jPTR.N,H,jTYP.LSTAHT,N?. I FnCNM . LOG  I u . I iITYR.nID  • 

• LOC.LTYP, ITYP. IHLnDT.MODE , lERR, lUtS 
COmrON/lOGIC/LOG.LOGST 

DIMENSION  LOGOP (?. 1 1 ) .LOGWA (5) . I LOG  (?) 

Data  LOGOP/?hlT. Ih  .?mlE.1m  •?HGT,in  ,?HGfc.lH  .PHED.IH  ,?hnE.1h  , 

• ?H0R.1M  .3hANt’,lM  .3hNOT,lM  .4MTRUE.1H  , 4MF  Al.  S • 1 Mt  / 

Data  ioec/ih,/ 

JRTR=LOGST 
DO  10  1=1,6 
NXT=NE  XT ( JPTR) 

IF (NXT  ,EO,  lOEC)  GO  TO  1? 

10  LOGPAd)*NXT 
GO  TO  ?0 

12  1F(I  ,LT.  3)  GO  TO  20 
CALL  CAA (L06RA, I-l , ILOG) 

00  15  1=1,11 

IF (If OMR (ILOG.LOUOP, I ,?)  .EG,  1)  GO  TO  30 
15  CONTINUE 
?0  LOG«0 
RE  TURN 
30  LOG=l 
LOGIO* I 
RETukN 
ENl» 
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SUhWOUTINt  LOfil^ 

COMMON  A(l3?fr),[)(?0n),lDThL(ll#S00),IMTlU(3),LASTlU(3).ISPCH(3), 

• N*TlD(?),JMT«tN*M,jTYP,LSTAivT.N?,  I F NC^  M , LOO  I D , lUTYM.NIO* 

* LOCtLTYP.ITvP, ItiLNUT,MOOf . U WPt lOtS 
COmK’ON/STM  InO/NT  YPt  ,N«;TM  .STM  (SOO  ) 

COMMON/eASMLi'/IFLOCK  (?SO0)  »NhLOC^  •NH,^bMNCH 
lNTtOf.0  a,STW.Ay,£F 

Data  lpa«/ ih  (/ , ay/ iMi/ ,tF / 1 mF/ 

IF  (Nit  XT  { JPTP)  ,Nt.  Ay»  go  TU  lio 

IF (NE X T ( JPTP ) ,NF,  £F)  go  TO  110 

IF  (ht.XT  ( JPTP)  ,Nt.  LPAP)  GO  TO  110 

JPTP=JPT«-  1 

call  txPR 

NSTP=NSTP* 1 

STR(NSTR)=  -S 

NTYPk  =2 

call  parse, 
call  fncstp 
call  hlnsth 

IF  ( ITyP  ,GT,  IS)  00  TO  1 30 
LTVPsl 

00  TO  n0.2O.30.40*S0*60*T0.H0.7O.70.90.S'0»lOO.100flO0),lTYP 
10  call  IMT 
RETURN 

?0  CALL  ASSIGN 
PE  Turn 

30  CALL  OCTO 
3S  NbLOCK=NbLOCK»l 

IhLOCK (NbLOCK) «998 
NbPNCHs? 

WETUPN 

40  call  asooto 

45  NHLOCN=NttLOCH*l 

IbLOCK (NbLOCK ) s9Pfl 
NHPnCMsNHPNCh* 1 
RETURN 

50  CALL  CTOOTO 
00  TO 

60  CALL  APIF 
00  TO  45 
70  CALL  SIMP 

IF(ITyP  .to,  7)  return 
GO  TO  35 
80  CALL  call 

return 

90  CALL  10 
RETURN 

100  CALL  AUXlO 
RETURN 

110  CALL  ERR0P(7,IDM1,I0M^,I0M3,IUH4) 

RETURN 

130  CALL  error (45. IDMl , IDM?, IDM3, IDM4) 

RETURN 

END 
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SUhnOUTiNe  LOOPCK 

CO^'MO^/LArihLS/STAT^^A  .NLAPEL 

copMON/nOLOOP/if  TACK  < 4 *so ) .n<;tack  , I loop 
C(jmmOn/hashlk/IhlOCK(2SOO)  • NHLOCk  , Nb , NhPNCh 
IMEOEP  STATPA.hITGET 
IF (NSTflCK  ,hO,  0)  PETUPN 
lhLK*^T  = l 

10  IHLknOsMITGET { IhLOCK (IhUKST).?4,l?)-l 
LOOP?*bITGfe  T ( IhLOCK ( IhLKST) • 1?.6) 

NhPsPITGtT  UHLOCK  ( IbLKST  ) 

IF(IHlknO  ,E0.  -1)  IbLKNOsNHLOCK 
lST»lHLKNU-SbP*l 
00  100  I*IST,IHLKN0 
JLOOP=LOOP? 

IF{IPL0CK(I)  .(,t.  99b)  GO  TO  100 
IbLKslhLOCK  ( I ) 

NXThLK=bITGtT(?TATPA(?, IhLK ) «3?*  14) 

KL(‘OP«h  ITGET  ( IPLOCk  (NxTfcLK),l?*f)) 

IF  (KLOffP  ,tO,  0)  GO  TO  mo 
IF(JLOOP  .to,  0)  00  TO  ?00 
SO  IF(JLO(-P  ,FO,  KLOOP)  GO  TO  100 
JLOOP«ISTmCk (3.JLOOP) 

IF<0L00P  .to,  0)  GO  TO  ?00 
GO  TO  50 

?00  IbLKslhLOCK ( I ) 

»»PITt(6,?0M  STATPAM.IPLK) 

201  FOOMAT (6X,65h  ILLEGAL  TRANSFEW  INTO  THE  RANGE  OF  A 00  LOOP  AT 
IEhEnT  NiiRBER.It) 

100  CONTINUE 

IFdhLKNO  ,EO,  NdLOCK)  RETURN 
IbLKSTslbLKNi)*  1 
GO  TO  10 
ENO 
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SUbPOuTiNt-  LVl'LtT 

COMMON/LVAWGS/IK'NC.  I I add.  IPOS.  lTYPfIVAL.LSTMeU.NVAL. 

♦ IUSTPY,IvALS(10).1TyPI(10).nSMP 

INTtOeP  FLGSPC.f-L0«S^.FLl‘^SK,FL?MSK,FLS'^SK,FLG67,pet'ASP,TMl5 

♦ .FL3PSK .FLAmSK .StQSPC 

COmmCN/LVV  TR  1 /Kt  MS7fc  .Pfc  GASP  , NOOSPC  ( 1) /LWT»2/LSTSPC  ( \)/ 

•LVVTP3/LNKSPC  { I ) /LWTP4/FLOSPC  ( 1) 

COPHON/LvFLAG/FLnMSK,FLlMSK,FL?«SK.FL3PSK.FLAPSK.FLSMSF.FLGfc7 
common  /LVTAHL/  F’APSZt  ,map  { 1 I /LWStQ/  I StOS7  . Sfc  OSPC  (I  ) 
KQUIvAlFnCF  (ILOG.RLOb) 

Data  nfloo?/^5/ 
kONFlC=0 

UtTFRMlNe  DIPFCTION  TO  PPOCfchD  FOR  MULTlvALl»t  LISTS 
JPOS=lPOS 
IPOS=lAhS( IPOS) 

IF  I lALD.Nt  ,-l  ) GO  TO  7<* 

IF  (IAPG,tOi.-J  ) GO  TO  N6 
lAUDsIFi,NC*lAkO 

U (lAliD.GT  ,MFMS7t  ) IAUD=IADO-MtMS7t 
IF  (AND(FlGSPC(IADD)  ,FLMMc;K}  ,fcQ,  o.)  GO  TO  99 
If  (NPUSPC ( I ADO)  ,fc Q . I ARG)  GO  TO  4 
SF.ARLM  conflict  LlS^  FOP  TMt  FUNCTION 
IADU  = LNKSPC(  IA(<U) 

IF  ( ANL>  (FLGSPC  ( I AUU)  ,FL««msK  ) ,NE,  0.)  GO  TO  99 
GO  TO  I 
S IAUDsIFIjNC 

TO  UtLFTK  b SPt(IFIC  TYPE  OF  NOUt  (INDEXtU  DtLFTt),  bO  TO  7? 

IF  (ITYP.Nfc  ,-l ) GO  TO  7? 

If  IAMmFlGSPC(IAUU)  .FLOmSK)  ,EQ,  0.)  GO  TO  6 
ISAUU=LSTSPC ( I AOU) 

DtLtTF  tNTIPt  mliLTIvALUFI)  FUNCTION.  HETPItVt  FIRST  VALUE 
IVALsNDUSPC  ( ISAliO) 

NXTaPU=L9TSPC { ISAOO) 

NUUSPC (1SADU)=N0USPC (RtGASP) 

LSTSPC { I SaDD) =Rt  GASP 
LNkSPC ( ISADO) =0 
FlGSpC ( ISAUU) =0 
IShhsNOUSPC  (PF.gASP) 

LSTSPC I I SUB) *1SADU 
NOOSPC  iRt GASP) = ISAOO 

IF  ( and (F LGSPC (NX TttOU)  .F UOMSK ) ,Nt,  0.)  60  TO  ? 

ISAni'sNxTAOD 
GO  TO  S 

FUNCTION  Is  SlMGlt  VALUtU.  RtTPUvF  VALUF 
h IVAL=LSTSPC(IAUtf) 

? U ( ANImFLGSPC ( 1 AUD)  ,f LSMSK ) .tO,  n.)  60  TU  bH 

NXF(.NC=LNKSPC  ( lAuU) 

IF (ANU(FLGSPC  (NxFunC)  .FI SMSK)  ,NF,  0.)  GO  TO  10 
NOl'SPC  ( i ADD)  SNOOSPC  (NxF  UNC) 

LSTSPC  ( I AO())  sLSTSPC  (NxFUnC) 

LNNSPC ( I ADD) =LNF  SPC (NxFunC) 

FLGSPC I I ADO) sFlGSPC (NXFUNC) 

PLOG  = CR (F  lGSPC ( I ADO)  ,F  LS«SK ) 

FLGSPC(IAOD)=IIOG 

U ( AND  IF LGSPC ( 1 AUU)  ,F LOMSK ) ,eO,  0.)  60  TO  9 


^VAL=LSTSPC { I ADD) 
ft  Kval=LSTSPC (KvAl ) 

ISUb  = LSTSPC  (KvAL , 

IF  (AND  (f-L6«;PC<  ISUH)  .PLOHSK)  ,tO.  0.)  GO  TO  fe 
LSTSPC (KVAL) =IAOO 
9 IADD=NXFuNC 
10  NODSPC (lADD)=NODSPC(PtGASP) 

11  LSTSPC ( lADD) =kEGASP 
LNKSPC ( I ADD) =0 
FLGSPC ( lAOD) =n 
ISUft=LSTSPC ( lADlO 
NOl'SPC  ( ISUb)  =IA[;U 
ISUH=FOUSPC(lAUO) 

LSTSPC(ISUb)=IADD 
PL  Tt  PN 

7?  IF  (ANU(Fl6«;PC(Ia00)  ,FlOPSK)  ,Mt,  0.)  GO  TO  ^0 
IF  ( IPOS.Nf  .1)  GO  TO  9P 
IF (ITYP,t0.3)  GO  TO  6 
PL0G=AND (FlGSPC ( IAOU) ,FLG67) 

ISTvPsIlOG 

IF  ( 1ST  I M.LQ,  ITYP)  go  to  h 
99  IVAL=-1 
PETUPN 
?0  iNDsO 

PLOG=  OP (FLGSPC ( I ADD)  .FL4MSK ) 

FLOSPC ( IAOU) =ILCG 
la«;t  = ia(>u 

IF (JP09) ]pi ,Q9,?1 
1?1  I«-OH  = LSTSPC  ( I ADD) 

LASTlsLNHC.PC(ISl'b) 

Thi<;  = laS71 
60  TO  ?7 

21  IF ( JPOS.LT  ,0 ) GO  TO  bO 
ThlS=LSTSPC (LAcT) 

IF  ( ANL»  (FU6SPC  ( THIS)  •FlOPSK  ) .Nt,  n.)  GO  TO  99 
60  TO  ?7 

HO  TMlS=LFKf;PC(LAST) 

IF  (THIS, to, LAST! ) GO  TO  99 
27  IF  (ITYP, to, 3)  GO  TO  ?3 

PL 06= AND (FlGSPC (THIS) tFL6H7) 

ISTyFsILOG 

IF ( ISTYP,tO, I TYP ) GO  TO  ?3 
2?  LAST=ThIS 
60  TO  ?l 
?3  IM)=IM'*I 

IF ( IM  ,Nt  , IPOS ) 60  TO  22 

C PfTPIFVK  iMt  IPC*9"Th  of  TH^  hTvP'»Tm  VALUE  ntFoPt  DFLFTING 
I VAL=K'Ol’SPC  ( This  ) 

PADf's  I ADD 

IF  ( JP09.6T ,n)  Gi  TU  bS 
Nt  xT=LNkSPC  ( ThJ V ) 

IF  (THIS,F(V,LAST1  ) ^>0  T(.  H2 
LNkSPC (LAST) =Nt  xT 
GO  T(»  HI 
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H? 

ISUf'  = L «.TSPC  i I aLO) 

00001 1 10 

LSf*  SHC  { ISIIH)  sNt  XT 

00001 1 ?0 

IF  (Nfe  X T ,tf.  ,L  1 ) '»0  TO  H<* 

OOOU 1 1 30 

LSTSkC  (^•t  XT)  =l.AST 

OOOOl 140 

00  T('  ^'S 

0 0 0 0 n G 0 

hU 

LSTSkC ( I AOD) =LAST 

0000) INO 

UUOsTHlS 

000011 70 

GC  TO 

0000  n HO 

NtxT=LSTSPC  (TmI«;) 

00001 190 

IF  ( AK(>  (F  LGSPC  (KtXT)*FLnMSK)  .NF, 

0,  ) 

GO 

TO 

GO 

OOOOlPOO 

LNK  SF'C  (Nt  X T ) =L  AST 

OOOOIPIO 

GO  TO  ?4 

000Q\??O 

^0 

IS(jh=LSTSPC  ( lADU) 

00001P30 

LNKSPC(ISUh)=LAST 

onoo 1 ?40 

IAI)(:=THIS 

OOOOl?SO 

JLAST  = L'‘  KSPC  (THIS) 

00001P60 

ISue=LSTSPC ( JLAST ) 

0000l?70 

IF  (AND(FLGSPCdSUH)  .FUOMSK)  .NE. 

0.  ) 

L^KSPC (NEXT ) =JL»ST 

0000l?80 

LSTSPC (LAST) =NtxT 

00001?90 

^LAST=LSTSPC (MADD) 

00001 300 

IF  (LNKSPC(KLAST)  ,Nt,KLAST)  GO  TO 

10 

00001 310 
00001 lao 

CONvEPT  to  SlM^Lt  VALUt  LIST 

00001 330 
00001 340 

LST<:PC  (^AOD)  sMOOSPC  (KLAST) 

00001 3G0 

RLOGsANO  (OP  (Fl.GSPC  (MaOD)  .FLGSPC  (KLAST)  ) i 

iNFLGO?) 

00001 360 

FLGSPC(HA00)=IL0G 

OOOOl 370 

FLGSPC (KLAST ) =0 

00001380 

LNKSPC (KLAST ) *0 

00001 390 

NOCSPC (KLAST ) sNOOSPC (PE GASP) 

00001400 

LSTSPC (KLAST ) sPfcGASP 

00001410 

ISdhsLSTSPC(KLAST) 

0O00l4?0 

NODSPC ( ISUB) =KLAST 

00001430 

ISUfc«=NOOSPC (KLAST) 

00001440 

LSTSPC ( ISUW) sKLAST 

000014SO 

GO  TO  10 

00001460 

7* 

IF (AND (FLGSPC ( 1 AUD) fFLQMSK ) ,NE, 

0.  ) 

GO 

TO 

00001470 

IF  (AND  (FLGSPC  ( lAUO)  *Fl?MSK)  ,E(i, 

0.  } 

00 

TO 

99 

00001480 

LAST*LNKSPC(IADD) 

00001490 

NExT=LST5PC(IAUD) 

ooooisoc 

LSTSPC (LAST) =NF  xT 

ftOOOlSlO 

IF  (AND (FLGSPC (NEXT) •FlOPSK)  ,NE, 

0.  ) 

GO 

TO 

10 

00001S20 

LNKSPC(NFxT)*LAST 

00001S30 

GO  TO  10 

00001S40 

NfcxT=LNKSPC(IADO) 

00001S50 

NExTlsNtXT 

00001S60 

2S 

IF  (LNkSPC(NExTI)  .eo.lAOO)  go  to 

?G 

00001S70 

NFXTlsLNKSPC(NexTl) 

00001S80 

GO  TO  ?S 

OOOOIS90 

?6 

LNKSPC (NEXT  1 ) aNt  XT 

00001600 

KONFLC*! 

OOOOIMO 

GO  TO  10 

000016PO 

FNO 

00001630 
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SUHMCliTlNt  LVfcXlT(N) 

CO^MON/L  I'NC  tLVVAW6,LVVAL)*LVvPOStLVVTYH*Lv/VAL« 

♦ LVHettntLVVNVL.LVUtST,LVVALSan),UVTYPEnO)tLV«^»'lP 
CQmmon/LVTAHL  /LVTSI7*LVMAP<  1)  /LVVSeo/LvSI7t  .Ly/SfvbM  ( 1 ) 

COPMfiN  /TyP/  NN(3)«tPHFLG 
Common  /SThIN(i/  MYPt.NSTP 
common  /need/  STwPTf AS50C,LEvEL*ST0P 

COmmON/nEEOS/STJ,  J«.TACK  ,P,JAS.J,JLAST,mTEmP,^TACK(<»OO.A) 

IMtCjtP  P.PTEmp,STJ.STACk,Ac;SOC.STAPT*STOP 
COMMON  /OIPL/  MM  ( IP) ,OPPAnO 

COmm(jN  /ml/  MOL«ACTl0N,EilNCl  . F unC?  * F UNC  3 f Lt  F T«PIGmT*STPING,maxJ 
common  /NTIMCS/  MIMES, Mflxl 

INTECjEP  STWlN«i,HOL.ACTION,PlbMT,FuNCl  , F unC?  , F IJNC  1 , OPP  AND 
logical  fPPFLli 
C FxFCUTt 

GO  J('  ?snon 
PSOOl  CONTiNUfc 

IF(MAxJ  ,NE,  D)  print  100,Mftxj 

100  format ( IX, A4M  STATtMtNT  IS  TOO  COMPLEX.  CORRECT  TO  CHAP.  ,13) 
IF<mAxJ  ,EQ,  0)  PRINT  ?nO,MAXl,NSTP 
POO  format ( 1 X , PPM  STATEMENT  TOO  LONG  AT  CHAP,  ,l3,3h  OF , I 3 > 

C COMMENTS  USED  IN  CASfc  OF  GIPS  PPOhLEMS  wMEN  mEMOPY  UStO  UP 
C GO  TO  in 

C IF (MAXJ  ,£Q,  0)  GO  TO  SO 

IF (MAXJ  ,EO,  0)  GO  TO  10 
DO  30  NCMAPsl  ,MAX J 

C STPIN&*mOL.NChAP (-l£F  T , -right , -mol » -STRING) 

C*«**  STRING  ♦ HOL 

LVVPOS  = NChAP 

LVVTYP  = 3 


LVFUNC*  HOL 

LVVAR&a  STPING 

CALL  LVFINUILV?  A,lv?  H.LV?  C.LV?  0) 

LVl  AAT  s STRING 

IF  (LVVAL,Nt.-l)  LVl  AAT  = LVVAl 
LVl  AAX  s LVl  AAT 

C**»*  LVl  AAX  - LFFT 

LVVAD*-1 
LVVTYPa-1 
LVVPOSsl 

LVFUNC*  LFFT 

LVVARGaLVl  AAX 
CALL  LVOLET 

LVl  AAX  a LVl  AAT 

c****  LVl  AAX  - RIGHT 


LVVAOa-l 


LVVTYPs-1 

LVVPOS*! 

lvfonc*  right 

LVVARG»LV1  AAX 
CALL  LVOLET 

LVl  AAX  « LVl  AAT 

C««««  LVl  AAX  - HOL 

LVVAD*-1 
LVVTyP*-! 


ooonoolo 

00000020 

00000030 

OOOOOOAO 

ooonooso 
0 0 0 0 0 n s 0 

00000070 
oonoooHO 
00000090 
00000)00 
000001 10 
00000120 
onoon 1 30 
onoooiAO 
nnoooiso 

OOOOniftO 
00000170 
000001  MO 
0 n (» 0 0 1 9 0 
00000200 
oononpi 0 
oooon?2o 

00000230 

000002AO 

000002SO 

00000260 

00000270 

00000200 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

000003S0 

00000360 

00000370 

00000300 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

000004S0 

00000460 

00000470 

00000400 

00000490 

ooooosoo 

ooooosio 

OOOOOS20 

00000S30 

OOOOOS40 

oooonsso 


/s 


HOL 

AAX 


LVl 


AAT 


STPING 


STRING 
AAX 


30 

C 


c 


c**«* 


c***» 


in 


c in 


LWPOS*l 
LVFUNC* 

LVVAR6=LV1 
call  LVULET 
LVl  AAX  s 

LVl  AAX 

LVVADe-l 
LVVTYP*-! 

LVVPOS*! 

LVFUNC* 

LVVARGaLVl 

call  LVDLEt 

CONTINUE 
STRING-STRING 
STPING 
LVVAD»-1 
LVVTYP»-1 
LVVPOS*! 

LVFUNC* 

LVVAPG* 

CALL  LVDLCT 
OPPANO(-OPPANUt-STRlN6,-ACTION,-FUNCl ) 


STRING 


STRING 

STRING 


LVl  AAT 

LVl  AAT 

lvvad*-i 

LVVTYPa-1 

LVVPOS*l 

LVFUNC* 

LVVARGsLVl 

CALL  LVULET 

LVl  AAT 

LVVADs-1 

LVVTYPs-1 

LVVP0S=1 

LVFUNC* 

LVVARGsLVI 

call  LVULET 

LVl  AAT 

LVVADs-1 

LVVTYPs-1 

LVVPOS*! 

LVFUNC* 

LVVARG*LV1 

call  LVULET 

LVl  AAT 

LVVAU*- 1 

LVVTYP*-! 

LVVPOS*! 

LVFUNC* 

lwapg*lvi 
call  LVOLET 
CO^'TINl^E 
RE*,IMj  IR 
NTiMfcSan 
CONT  iNUfc 


OPRANO 


OPRANO 


OPPANU 

AAT 


STPING 


STRING 

AAT 


ACTION 


ACTION 

AAT 


FUNCI 


FUNCI 

AAT 
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O0OOOS6O 
00000570 
00000580 
00000590 
00000600 
00000610 
000006?0 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001 100 


C REWIND  99 

c ntimes=o 

JsNSTR*! 

P=STOP 

STJsR 

ERBFlGs,TRu£. 

jSTACKsI 

STACK ( JSTACK , 1 ) =STOP 
STACK (JSTACk,?)s100 
«^TACK  (JSTACK.1»=J 
STACK (JSTACK .4) =0 
C NSTP=0 

NSTR=HAX J 

c complete 

RETURN 

psnoo  CONTlF»Ut 

LV?A=0 

LV2B*0 

LV?C*0 

LV2D*0 

LVPE  =0 

LV?FaO 

LV2G*Q 

LV2MS0 

GO  TO  2S0ni 

END 


000011  10 
00001120 
00001130 
00001 140 
00001 150 
00001 160 
00001170 
00001 180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
oooolpro 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 


SliHPOUT  I Nt  LvPECm  (N) 

INTEGER  PLGSPC,SE0SRC«PE0ASP 

COMMON  /LVTaHL/  MAPS7E ,mAP ( 1 ) /LVVStO/  I SE US 7 • SE OSPC ( 1 ) 
CORm(-N/lvvTRI/mEmS7E  •Kff^ASRtNODSRC  ( 1 ) /L  VVTR2/LST  SPC  ( 1)/ 

*L VVTP3/LNKSPC ( 1 ) /L VVTW4/FLG5RC ( 1) 

common /LVRANO/kRn  I Mt,KS,n«,Kl)v,Kux,KTEMR 

PEAlMN)  MtMS7t«REOASR,KPRIMt.KS,Kx*MESTtK0Y*KTEHP,RDX«KNnM 
* . ISEOS7 

PE  AD  (N  ) (NOOSPC  I I)  ♦ Isl  ,Mt  ^<;7t  ) 

PE  AD  (N)  (LST<^RC  ( I ) . 1*1  tMt«S7E  ) 

ME  41)  (N)  (LNKSRC  ( I ) . I*  1 ,Mt  mS7E  ) 

ME  AD  (FLGSPC  { I ) • I * I .MEMS/r  ) 

PE  40  (SEQSRC  ( I)  . I = 1 , ISE  OS7) 

PRINT  10 

10  E Omm  AT  ( //// 1 )»  t 34M  (jRApM  HuS  -iEEN  PLACED  INTO  MtM(WT//j 
RE  T(JRN 
ENU 


0000001  0 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 10 
OO000120 
000001 30 
00000140 
OOOOOISO 
OOOOOINO 
000001 70 


HO 


SUbROUTiNe  LVF  INO(  1 NOX  AO  « KFuNC  »K  ARii ) 

COMKON/LVARGS/IFDNC. lARG. I ADO, iPOSf ITyP. I VAL.LSTHED.NVAL* 

♦ IDSTPY, IVALS ( 10) • ITYPI ( 10) ,NSKIP 

INTEOtP  FL6SPC,Pt6ASP*FL0NSK,FLl«SK,FL2NSK,FL3MSK,FLAMSK,FL5HSR, 

♦ FLGfeT.StOSPC 

C0MH0N/LVFLAG/FL0NSK,FL1MSK,Fl?mSK,FL3MSR,FLaMSK,FL5MSk,Fl667 
COMMON  /LVTAHt/  M APS7E , MAP ( I ) /LVVStO/  1 StOS? , St QSPC ( 1 ) 
COMMON/LVVTPl/MfcMSZE,REGASP,NOOSPC { 1 ) /L VVTP2/LSTSPC ( 1 ) / 

•LVVTP3/LNKSPC ( 1 ) /L VVTRA/FL6SPC ( 1 ) 

equivalence (PLOG, ILOG) 

DATA  NFLAG4/?a7/ 

IAOD»lFuNC«l APG 

IF ( I ADO.GT.mEMSZE)  I AOO*IAOD-n£msZE 
LSTmEO*0 

IF (ANDiFLGSPC ( I ADO) ,FL5MSK)  ,tO,  O.)  60  TO  99 

I IF (NODSPC ( lAOD) ,tO, lAPG)  GO  TO  4 
IAOObLNKSPC ( lAUD) 

IF (AND (FLGSPC ( lAOO) .FCSMSK ) .NE,  O,)  GO  TO  99 
GO  TO  I 

4 IF(AND(FLGSPC(IaOO) ,FlOMSK)  ,nE*  0.)  GO  TO  l4 
PL0G«An0(FL6SPC ( I ADO) .FLOG 7) 

ISTyPbILOG 

IF  aTYP,E0,3)  GO  TO  II 
IF ( ISTyP.EO.3) ISTYPb? 

If  (ISTyP.NE.ITyP)  go  TO  99 

II  IVAL«LSTSPC ( lAOO) 

IF ( (IPOS.NE.l ) .ANU. (IPOS,NE,-l ) ) GO  TO  99 
RL0G»AN0(FL6SPC( lAOD) *FLG67) 

ITYP«IL06 

LSThEOb-1 

RETURN 

14  LSTHEObIAOO 
IND«0 

KN0EX«IAB$(IN0EX) 

JP0S«IABS ( IPOS) 

IF(NSKIP.EO.I)  GO  TO  50 

IF ( (KFuNC.NE* IFUNC) •OR. (KARG«NE. I ARG) ) GO  TO  50 
IF (AN0(FL6SPC (LSTMED) ,FL4MSK)  .NE,  0.)  GO  TO  50 
IF ( (IP0S*IN0EX)  «LE.  0)  GO  TO  50 
IF ( JP0S.LT.2)  GO  TO  50 
NQXbFLGSPC ( INOXAO) 

IF<AND(N0X,FL5MSK)  .NE,  0.)  60  TO  50 
IF(AND(NDX,FL1MSK)  .EO,  0.)  60  TO  50 
IF CJPOS.GE.KNOEX)  GO  TO  ?5 
IF ( (JPOS*JPOS) .LF.ANOtX)  60  TO  50 
IF (KPOS) 30,99,40 

50  RLOGbANO (FLGSPC {LSTMEO) ,NFLAG4) 

Fl6SPC(LSTME0)*IL06 

IF(IPOS)  20,99,10 

c 

COUNT  DOWN  from  the  TOP  OF  THE  LIST 
C 

10  IAOD*LSTSPC<IADO) 

IF (AN0<FL6SPC ( lAOO) ,FL0MSK)  .NE.  O.)  GO  TO  99 
RL00"AN0(FL0SPC ( IAOO) ,FL667) 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000060 
00000090 
00000100 
000001  10 
00000120 
00000130 
00000140 
00000150 
00000160 
000001 70 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 


HI 


ISTvl-«lCOG 

nooonsNO 

IF  (ITvP,tU,3)  00  TO  ?? 

00O00570 

IF  (ISTyK.Eu.3)  I«;TvPa? 

oooonsBO 

IF  MSTyP.NE  . I TVP)  00  TO  10 

0O00OS90 

?? 

lNn«lNO» 1 

00000600 

IF  <IND.NE*JP0<)  go  to  10 

00000610 

2H 

IVAL»N0DSPC ( lAOU) 

00000620 

PL0G*AN0 (FLOSPC ( I AOD)  fFLGfe?  » 

00000630 

ITYPsiLOG 

00000640 

SS 

INOE  X=KPOS 

00000650 

INUXAU=1AU0 

00000660 

kfuncsifunc 

00000670 

NAPG^I ARO 

00000680 

Pfc  TURN 

00000690 

c 

00000700 

COUNT 

UP  froh  the  bottoh  of  the  list 

0000071  0 

C 

00000720 

?0 

IADD=LSTSPC ( lAOU) 

00000730 

KTEST*0 

00000740 

?3 

lAOn*LNKSPC ( I ADD) 

00000750 

IF  (KTEST.tO.O)  GO  TO  ?4 

00000760 

ISUHaLSTSPC(IADD) 

00000770 

If  <and(FlgspC(Isuh)  .flomski  .Nt.  n,i  go  to  99  oooomno 

?* 

KTESTsl 

00000790 

RL0G*AnD (FLGSPC ( IADO) ,FLG67) 

OOOOOROO 

ISTYP«ILOG 

OOOOOfllO 

IF  (ITYP.Eg,3)  GO  TO  ?1 

OOOOOH20 

IF  ( ISTYP.EQ.3) ISTYP«? 

00000830 

IF  ( ISTVP.NE. ITYP)  GO  TO  ?3 

00000840 

?1 

IND«INU«1 

00000850 

IF  ( INO.NE..JPOS)  60  TO  ?3 

00000860 

IVAL«N0D5PC ( IADO) 

00000870 

PL06«AN0 (FLGSPC ( IADD) ,FlG6T) 

00000880 

ITyP*IL06 

00000890 

GO  TO  55 

00000900 

?*> 

IF (KPOS) 40,99*30 

00000910 

C 

00000920 

COUNT 

OOtoN  FROM  INOXAOD 

00000930 

C 

00000940 

30 

JP0S*IABS( JPOS-KNDEX) 

00000950 

IADD«IN0XAD 

00000960 

IF  (JPOS.EO.O)  60  TO  ?fl 

00000970 

GO  TO  10 

00000980 

C 

00000990 

COUNT 

UP  FROM  INOXAOD 

00001000 

C 

00001010 

40 

JP0S«IABS(JP0S-KNDEX) 

00001020 

IADD*INUXA0 

00001030 

IF  (JPOS.EO.O)  GO  TO  ?9 

00001 040 

KTEST-1 

00001050 

60  TO  ?3 

00001060 

99 

IVAL«-1 

00001070 

INOEX*0 

00001080 

INDXAD>0 

00001090 

XFUNC«0 

00001100 

XAPG«0 

00001  1 10 

petupn 

00001 120 

END 

00001130 




SUBROUTINE.  LV0PN{N0DE)  OOOOOOlO 
INTEGER  FLoSRC.REGASP  000000?0 
COMMON/LVVTR1/MEMS7E .hEGASR.NODSPC ( I ) /L VV TP?/UST SRC ( 1)/  00000n30 


•LVVTP3/LNKSPC  ( 1» /L VVT /F LGSPC { 1 

COMM(tN/tVPAND/KPPlM£  ,KSEED,NPOi(,KONOOE 
NODE=r  TE  mP^kDNOOE 
KTEmPsnODE 

kdnode=konode  ♦ 1 

IF(N0DE  ,GT,  MEMS7E)  GO  TO  S 
RETURN 

5 IF (NROw  ,GT.  KRPIME)  GO  TO  10 
NROfc-NROh»KSEED 

IF(NPOw  ,GT.  KPPIMfc.)  NPC«  = NWOw-r<  RRI 
N00E=NR0W 
K TE  '^PsNOUt 
KONOnEsKPRlME ♦ 1 
IF(NOOE  ,NE.  ksEEU)  kETURN 
NCO^  =0 

KOWO^si'RPlME 
1 0 M-ROw  = kDPOw*  1 
NROW=NRUW*kC)POw 
NODE  =NwOw 
H TE  MP  = r,uUt 
KUNOl'F  ^^ONO^lt 

IF(N01'E  ,GT.  Mt*^S7t)  ('0  TO  ?0 
PE  TURN 

?0  PRINT  lb 

IS  ^OR^'AT(lM  ,1*«A7H  tPRUR,  . .NUMbE  R UF 
*?7h  THE  PP(JGRAH  IS  TER^*INAT£D,  ) 

STOP 
END 


oonono<»o 

nUROr.nTEmp  OOOOOOSO 

oononnf>o 

00000070 
OOOOOO0O 
OOOOOORO 
OOOOO 1 00 
000001  1 0 
OOOOOl ?0 
00000130 
OOOOOIAO 
000001 bO 

oonoo 1 bO 

OOOOOl 70 
OOOOO 1 HO 
oonooiRO 
OOOOOPOO 
00000?!  0 
ooooo??o 

00000?30 
OOOOOpAO 
OOOOOPSO 

nooonpto 

OOOOOP70 

NODES  ExCftDS  hEUUEST  *-t-MORv/  00000?MO 

00000?RO 

00000700 

00000310 


suhpoutin£  lvnspt 

C0HH0N/LVAP65;/If  UNC*  1 ARGt  1 ADDt  IPOSt  ITyP?*  1 V AL  t L STHt  D , Nv AL  » 

♦ idstpy.ivalsmo).ityP(io)  «nsk  ip 

iNTt  Gf  e FL6SPC,FL0M«;k  ,FL  I»*SK*FL2MSK,Ftf>^SK,FLG67,Pt6A5P,TfMP,TMlS( 
f FLGTMP,  HE  AD  ,010100  *ASPPtG.St.QSPC*FL3MSK  ,FL4M$K 
COMHON/LVVTRl /HtMSZt ,REGASP,NOOSPC ( 1 ) /LVVTR2/LSTSPC { \) / 

•LVVTP3/LNKSPC ( 1 ) /LVVTRA/FlGSPC ( 1 ) 

COHHON/LVFLAr,/FLOHSK,FLlMSK,FL?MSK,Ft3MSK,FL4HSK,FL5HSK,FLG67 
COHMOK/  /LVTAriL/  HAPSZfc«MAPn)  /LYVStO/  I St  0S7  • S£  QSPC  ( 1 ) 
equivalence  { ILOG.RLOG) 

Data  nflG67/?s?/ 

FlGTHP=FL1HSK 

IF  (PEGASP.fcQ.LSTSPC (RtGASP) ) GO  TO  Vfl 

FORM  FIRST  wOPO  OF  SINGLE  OP  MULTIVALUED  FUNCTION 
IF (NVAl .to. I ) GO  TO  20 
LSTTHPsptGASP 

PLOGsOP  (FLOMSK  , OP  (FLGTMP,FL2^^SK  ) ) 

FlGTmPsILOG 
00  TO  ?1 

?n  LSTTMpsiVALS ( 1 ) 

2\  RL0G=0W{FLGTHP.ITYP(1) » 

FlGTMPsILOG 


:-nETEPHlNE  ADDRESS  FOP  FUNCTION 
IaOD^IFiiNC^IAPG 

IF  { lADO.GT.MFMSZt)  IAUD=IAD0-pEms7£ 
c 

c IF  THAT  address  IS  ALHtAOv  IN  WORKING  SPACE,  GO  TO  ?S 
IF  (IUSTRY-1)  l?^*300.3b0 

l?S  IF  (AK0(FL1HSK,FL6SPC(IaDI))  ) ,NE,  0.)  60  TO  ?S 

Z UPOATE  PtGASPdF  NECESSARY) 

?3  IF {IADD.EO,PEGASP)REGASPsLSTSPC{ lADU) 

c 

c update  available  space 

IStJe^NODSPC  ( lAOf)) 

L‘^TSPC  ( ISUH)  sLSTSPC  ( I aUD) 
lSUh=LSTSPC(IAOD) 

NODSPC ( ISUH) sNOUSPC ( lADD) 

c 

c INSEPT  Function 

?4  NODSPC ( lACD) slAPG 

LSTSPC  { I ADD)  =l.STTPP 
LNkSPC ( I ADO) *1  add 

PLGG  = 0R  iFLSHSK ,0P (FlGSPC ( I ADD)  ,FLGTmP)  ) 

PLOGsOP (RLDG,FL  aHSk  > 

FlGSPC ( I ADD) *1L0G 

c 

C INSEPT  ANY  additional  FUNCTION  VAUfES 
Hf  Af>=  I AuD 
OlDL 0C=IADD 


0000001 0 
OOOOOOPO 
00000030 
00000040 
00000050 
00000060 
00000070 
OOOOOOfiO 
00000090 
OOOOOlOO 
00000  1 1 0 
oooooi?o 

00000130 
00000140 
00000150 
00000160 
OOOOO) 70 

000001 eo 

00000190 

OOOOOPOO 

ooouopio 

OOOOOPPO 

00000730 

00000?40 

ooooopso 

00000760 

UUCUU^70 

OOCOOPHO 

00000790 

00000300 

00000-^10 

00000370 

00000330 

00000340 

00000350 

00000360 

00000370 

nonoo3HO 

00000390 

00000400 

OOOOOaIO 

00000470 

00000430 

00000440 

00000450 

00000460 

00000470 

00000460 

00000490 

OOOOOLOO 

noonosio 

00000570 
0 0 n 0 0 5 » ft 
f.oooo5*in 
00000550 


IF  (NV«L  .OT  , 1)  ('(■  TO  SO 
C 

C IF  LAST  CtLL  Of  AvAIlahlF.  SP«Ct  wAS  HStD*  MtSSAOt 

IF  (>JFGASF^.F<j.LST?MC(hlOASP)  ) (»0  TO 
I VAL= IAHS ( 1 VAt  S < I ) ) 

Pt  TijPN 

c 

C IF  THAT  AOUPfcSS  CONTAINS  THf  ^.fc  AU  OF  A CONFLICT  LIST.  oO  TO  4) 
?S  IF  (ANU(FloSPC(  lADD)  .f  LS^-SK  ) ,&T,  0.)  bO  TO  4] 


uOTioossn 

nof'ijnsTO 

nonoosAo 

nononspo 

onnunson 

onoon^io 

()00Ufts<>0 

oonooN.io 

OOOOnNAO 


IF  THAT  AOuPESS  CONTAINS  A VALOt  OK 
Pl=AN0(FL?MSn,FLOSPC  ( IA(>0)  } 

W^sANl  (F  LOMSr  , f-  L OSPC  ( I AOU)  ) 

IF  (PI  .OT,  0,  .AM'.  P?  ,F(J,  O.J  bO  TO 


mulTIvaluF-  list,  G(i  to  3S 


on(t()06Sn 

onoOnsfrO 

nnoonsTo 

oonoo6«o 

OOOOOS'^O 

onoooTOo 

-OUUUOTlU 


C-ThF  AOl'PtSS  CONTAINS 
ThISsIaOU 

c 

c 


A FtjNCTION  UN  A conflict  LIST.HmT  NOT  Tsh 


find  Tst  PPFCtrjiNO  F|»nCTION  on  Tht  CONFLICT  LIST 
?t  ISUh=LNKSPC(Tr^IS) 

IF  (LF  F SPC  I ISUH)  .to,  lAOO)  bO  T(^  ?7 
THISSLNFSPC (THIS) 

00  TO  ?t> 

?7  LASTsLN^sPC iTmIS) 

N£  4L0C=Pt  (jASP 

IF  (PF(iASP.fcO,l  STSPC(KfcGASP)  ) (,0  TO  bn 

Z 

C update  AvAIlAhLF  space  and  pegasp 
rsuHsNOosPC (hloasp  > 

LSTSPC ( ISUH) sLSTSPC (PEG ASP) 
iSURsLSTSPC (PEOASP) 

NODSPC I ISUb) sNODSPC (PEOASP) 

PEGASPaLSTSPC (pEGaSP) 


LIST  TO  the  FIPST  CELL  OF  A^/ARAPLF 


HOVE  TMfc  FUNCTION  ON  A CONFLICT 
NODSPC  (NtPLOC  ) sNODSPC  ( I ADO) 

LSTSPC (NEpLOC) sLSTSPC ( lAOD) 

LNnSPC (NE  pLOC) =L^^SPC ( lADO) 

FLGSPC (NtwLOC) =f LGSPC ( I ADO) 

flgspc ( lAuu) sn 

LN^SPC (LAST) sNEpLOC 

INSEPT  THIS  FUNCTION  AS  THE  HEAD  OF  A CONFLICT  LIST 
NODSPC  ( I ADD)  si  AP(^ 

LNKSPC ( I AOO) *I add 
LSTSPC(IADD)*LSTTHP 

PLOGsOP(FLSMSN,OP(FLGSPC(IAr)D)  .FLGTMP)  ) 

RLOO«OP (HLOG.FLamsn) 

Fl6SPC(IAD0)sIL00 

IF  (ANO(FLGSPC(NEwLOC) .FLOMSK)  .EO,  0.)  GO  TO  34 

IF  THE  FUNCTION  THAT  WAS  MOVED  IS  THE  HFAD  OF  A multIVALuE  LIST.FIk 
NFxT«LSTSPC (NEwLOC ) 

30  NEkT«LSTSPC(NExT) 


head  OFOOOOD7?n 

nnonf^730 

00000740 

onooo7So 

000007GO 

00000770 

noooo7PO 

0O0007P0 

OOOOOPOO 

oonooHio 

OOOOOHPO 

00000830 

O0000A4.0 

oonooflsn 
OOOOOMHO 
00000870 
0000O880 
OOOOOH90 
OOOOOPOO 
0(^000910 
0000OQ?0 
0O(»0OP30 
0OOOOP4O 
OOOOOQSO 
OOOOOPbO 
00000970 
00000980 
00000990 

0000 \ noo 
00001  0 1 0 
noooinpo 

00001030 
00001040 
ooooioso 

00001 OhO 
00001 070 
OOOOICBO 
00001090 
00001 100 


HS 


iLSTSPC(NtxT)  .Nt.IAUDjGO  TO  30 
L«;tsPC  (n£j(T  ) sNfckLOC 

inse^^t  any  additional  Function  values 

34  MfAD=lAUD 

OL['LOC  = IADD 

IF  (nval.gt.i »go  to  so 

IF  {PF&ASP.EQ.LSTSPC(Wt6A$P) ) 60  TO  909 
I VAL»I  AhS ( I VALS ( n ) 

PtTUkN 


-Thfc  ADUWfcSS  CONTAINS  A VALUE  ON  A MULTlVALUE  LIST 
3S  F t ».L0C  = Wt6ASP 

IF  (PFOASP.FO,LSTSPC(we6ASP) ) 60  TO  98 

dPOATF  avaILAmLE  space  AND  PEGASP 
3f>  ISIJH  = N0US»-C  (PFGASP) 

L^^TSPC  { ISUH)  sLSTSPC  IWEGASP) 

ISl'k  = LSTSPC  (kPGASP) 

NODS PC ( I SUM) sNOOSPC (PE GASP) 

PEGASP=LSTSPC (PtGASP) 

MOVE  THE  value  on  a multivalue  LIST  TO  ThE  FIRST  CELL  OF 
37  NOnSPC (ME  wLOC) sNOUSPC ( I ADD) 

L^^TSPC  (NtwLOC)  *LSTSPC  ( lAOO) 
l.NKSPC  (NE  WLOC)  *LNKSPC  ( I ADO) 

FLGSPC (NEnLOC) sFLGSPC ( I AOD) 

FLGSPC ( I ADD) =n 

RESET  POINTERS 

Ll*LSTSPC(NEkLOC) 

IF (AND(FL0PSK»Fl6SPC(L1) ) •LQ,  0.)  GO  TO  200 
ISUH*LSTSPC  tLl ) 

LNKSPC(ISUb)aNEWLOC 
GO  TO  201 

?00  LNKSPC (LI ) «NEWL0C 
20  I ISUB*LNKSPC (NEkLOC) 

^?VAL*LSTSPC ( ISUb) 

IF (AND(FLGSPC(KZVAL) tFLOMSK)  ,NE,  0,)  60  TO  38 

lSUb*LNKSPC (NEwLOC) 

LSTSPC(ISUB)«nEwLOC 
60  TO  39 

3ft  LSTSPC (KZvAL) "NEWLOC 
39  NOOSPC(IADO)«IAPG 

INSERT  THIS  Function  as  the  mead  of  a conflict  list 

LNKSPC ( lADD) "lAUO 
LSTSPC{IADO)»LSTTMP 

PLOG»OR{FL5MSK,OP(FLGSPC(IADO) .FLOTMP) ) 

PL06*0R (RL06*FLaHSK) 

FL6SPC(IAOO)*IL06 

IF  (REGASP,tO.LSTSPC(RE6ASP) ) 60  TO  909 
IVAL-IABS(IVALS(1) ) 

RETURN 


00001 1 10 
00001 1 ?0 
00001 1 30 
00001  1 AO 
00001  ISO 
00001 160 
00001  I 70 
00001 180 
00001 1 90 
00001200 
00001210 

.---00001^:20 

00001230 
000012AO 
00001 2S0 
00001260 
00001270 
00001280 
0000129C 

oooonoo 
00001310 
00001320 
00001330 
available  S000013AO 
0000  I 3S0 
00001360 
00001370 
OOOOl 380 
OOOOl 390 
00001400 
0000  1 4 1 0 
00001420 
00001430 
00001440 
OOO014S0 
00001460 
00001470 
00001480 
00001490 

0000 1 soo 

OOOOISIO 

00001S20 

00001*^30 

O0O01S40 

00001 sso 

00001S60 

00001S70 

OOOOISHO 

00001S90 

00001600 

00001610 

00001620 

00001630 

00001640 

000016SO 


Hh 


C 00001660 

C — ..-.-00  001670 

C-THt  AD0PE.SS  contains  THC  MEAO  OF  A CONFLICT  LIST  000016«0 

A1  TH]$«IA00  00001690 

C 00001700 

C IF  THE  FUNCTION  TO  BE  INSERTED  IS  NOT  ON  THE  CONFLICT  LIST#  GO  TO  6000001710 

42  IF <NOOSPC (THIS) .EO, IARGjGO  TO  43  00001720 

lSUb»LNKSPC (THIS)  00001730 

IF ( ANO (FlGSPC (ISUB) #FL5MSX)  ,NE,  O.)  00  TO  60  00001740 

THIS»UNKSPC (THIS)  00001750 

60  TO  42  00001760 

C 00001770 

c ..0U0  01760 

c-the  Function  to  be  inserted  is  on  the  conflict  list  ooooitro 

43  hEAO-ThIS  OOOOlAOO 

IF (AND(FlGSPC(THIS) »FL0HSK)  •EO,  0«)  go  to  51  OOOOIBIO 

NExT«LSTSPC(ThIS)  00001620 

C 00001630 

C OLOLOC  is  the  location  of  the  last  value  on  the  multivalue  list  00001640 

C 00001650 

OLOlOC"LNKSPC(NEXT)  00001060 

C 00001070 

c — — — ---0  0 001600 

c-insept  additional  Function  values  ooooibpo 

50  LSTASP«N00SPC(PE6ASP)  00001900 

INbO  00001910 

go  to  56  00001920 

C 00001930 

C..........  — — ....  — — .— — — — — — — — — — ...0  0001940 

C-FORM  multivalue  LIST  TO  ADD  VALUE (S)  TO  SINGLE-VALUED  FUNCTION  00001950 

51  IN«0  00001960 

IF(PEGASP,EO.LSTSPC(REGASP) )GO  TO  90  00001970 

LSTASP«NODSPC (PEGASP)  00001900 

NEmL0C>PE6ASP  00001990 

PEGASP«LSTSPC (PEGASP)  00002000 

NOOSPC (NEwlOC) «LSTSPC (THIS)  00002010 

PL06«OP(FL6SPC(NEWLOC) # AND ( FLGSPC ( Th I S ) .FLOGT) ) 0000?0?0 

FLGSPC (NEWLOC) «ILOG  00002030 

PLOG*OP (FLOMSK,OP (FL2HSK, AND (NFlG67*FlGSPC (THIS) )))  00002040 

FLGSPC (THIS) •ILOO  00002050 

OLOLOC«THIS  00002060 

C 00002070 

C................... — ..OOO0  20H0 

C INSEPT  another  value  ON  MuLTiVALUE  LIST  00002090 

52  PLOGbOP (FLIMSK, OP (FL2MSK, FLGSPC (NEvLOC) ) ) 00002100 

FLGSPC(NEmLOC)»ILOG  00002110 

LSTSPC (OLOLOC) «NEVL0C  00002120 

LNKSPC (NEvLOC) bOLOLOC  00002130 

55  OLOlOC*NEmLOC  00002140 

56  NEwLOC-PEGASP  00002150 

IF (IN,6T,0)GO  to  57  00002160 

C 00002170 

C NO  values  have  been  inserted  vet  00002160 

INbI  00002190 

60  TO  S6  0O002200 


c 

C SOHf  vALUtS  HAV^  hEEN  iNSEPTtO 
57  If t IN.EO.NVAL) GO  70  67 

I 

C 

50  If  (»E&ASP,EO*LSTSPC  («EGA<;P  M GO  TO  909 
5hl  P£6ASP»LSTSPC jPEGASP) 

502  NODSPC(NEwLOC)«IVALS(lN) 

RLOG*OR(ITyP{IN) tfLGSPC (NEwLOC) ) 

FL6SPC (KEWLOC) *ILOG 
60  TO  S? 

C 

c EkD  MoLTIVALUE  list  and  update  available  space 

67  LS7SPC (OlDLOC)«mE AO 

NOOSPC  <»E6ASP) *LSTASP 
LSTSPC (L ST ASP) *REbASP 
IVAL  = IABS<IVAI.S(1)  ) 

IS»»E«LSTSPC  (HEAD) 

LNhSPC(ISUB)*OLOLOC 

NVAL=Ih 

IF(REGASP,EQ,LST5PC(PEGASP) ) GO  TO  909 
PETULN 
C 

C---- — 

c-the  Function  to  be  inserted  is  not  on  tme  conflict  list 
6li  ASPPEG*wEGASP 

LSTASP*nODSPC (Pf GASP) 

IF  {PfGASP,E(J.LSTSPC(«EGASP)  ) GO  TO  9fi 
C 

C update  AVAlLAfeLE  SPACE  AND  BtGASP 
60 J ISUH=NODSPC (BeGASP) 

LSTSPC (I  SUB) sLSTSPC(WEGASP) 

ISU^-=LSTSPC  (OEGASPj 
NOOSPC  ( ISliH  ) snOOSPC  <hEGASP) 

AE  GASPsL  STSPC  (‘'E  GA$P  ) 

C 

c iNSkPT  Function  in  first  cell  of  available  space 

61  NODSPC < aSPRE^) * I APG 

IF (NVAL.EO, 1)G0  to  611 
LSTSPC (ASPREG) sREGASP 

PL06«CR  lE'LOMSft  ,OP  tFL2MSH  fPLGSPC  | ASkbEG)  ) ) 

FLGSPC(ASPRtG)slLOG 

GO  TO  61? 

611  LSTSPC (ASPREG) si VAlS { 1 ) 

Bl?  PLOGaOP (FLIMSk ,0P (ITyP  1 1)  .F^GSPC ( ASPRf G) ) ) 

PLOGsOP (RL 06. FLAPS K) 

FLGSPC (ASPREG) sILOG 

LNf SPC (ASPPEG) sLNKSPCfTHlS) 

LNF«PC (THIS) sASPREG 
IF (NVAL .EO. I )G0  TO  613 
C 

C INSERT  At)01TI0NAL  VALUES 
LSTaSpskOOSPC (Rf  GASP ) 

OlDLCCsASPPEG 
Mf  AOsASPREG 


0000??10 
0000???0 
0000??30 
0000??AO 
0000??50 
0000??60 
0000??70 
0000??60 
0000??90 
0000?300 
0000P31 0 
ft000?3?0 
0G00?330 
0000?3#0 
OOOOP3SO 
ftft00?360 
n000?370 
00fl0?3fl0 
0000P390 

0000?4 10 

onoo?4?o 

0n00?430 

GVQ0?44U 

0O00P4S0 

n000?460 

0000?470 

OOOOP4BO 

OOOOP490 

''O00?S0O 

onoopsi 0 
onoo?s?o 
ooon?s3o 
pnoo?6..0 
oooopsso 
onoopSftO 
COOOPS70 
onoopSHO 
0C'0U?S90 
O0OOP60O 
OOOOPMO 

rnon?6?o 

moo?63o 

nnoo?640 

OOUOP6SO 

06002660 

00002670 

00002660 

00002690 

00002700 

00002710 

00002720 

00002730 

00002740 

000027SO 


HH 


f 


IN  = 0 

O0C0P760 

GO  TO  56 

0(^00?770 

613 

IF  tPfcG4SP.E0.L5TSV^C(HtGAS^*)  ) GO  TO  909 

6000?7f^0 

IVAL=IA5S(IVALS(1) ) 

OOOOP790 

PETUPN 

O000P800 

C 

OOOOPMl 0 

C 

ntsTPucTivt  insertion 

OOOOPAPO 

C 

OAOOPA30 

350 

IA'-'Cl  = IADU 

OOOOpAttO 

lNOtX=0 

OOOOPH50 

JALL  LVF INU  ( INUEX. INUE  X , INDEX. INDEX ) 

0000?b60 

PLOGsOP (FlGSPC ( 1 ADD)  .^LamSK) 

OOOOPH70 

FLG5PC ( I ADO) =IL0G 

OnOOPPAO 

IF  (iVAL.fcO.-l ) GO  TO  90 

6noo?fi90 

IF(LSThED)  364,^0.356 

O000P900 

354 

L5TSPC ( I ADO) =I VALS ( 1 ) 

OOOOP9IO 

GO  TO  365 

f'OOOpPpO 

356 

NOOSPC ( I ADD) si VALS { 1 ) 

onoo?930 

365 

MLOGsOm ( ITyP ( 1 ) .AND (NFlG67,FLG5PC ( UDO) ) ) 

6OO0?9a0 

FlGSPC { I ADD) =1L0G 

OOOOP950 

GO  TO  360 

0OUOP96O 

<50 

IF  (IP0S)91.99,9a 

OOCOP970 

IP0S=IP0S*1 

OPOOP9HO 

GO  TO  93 

onoo?99o 

9? 

IPOSslPOS-1 

ooooiono 

93 

lAOCslAUDl 

00003010 

IF  (IPOS.EO.O)  GO  TO  1?5 

O00O30P0 

iNDEXsO 

00003030 

call  LvF  INU  (INDEX. INDEX. INDEX. INDEX) 

00003040 

IF  (IVAL.EQ.-1)  GO  TO  99 

00003050 

IF ( IPOS  .LT.  0)  GO  TO  370 

00003060 

lADDslADDl 

00003070 

60  TO  l?5 

ooonioHO 

370 

Nf  ^.LOCspEGASP 

00003090 

IF(L5ThED)  3P5.99.375 

00003100 

C 

update  available  space 

000031 10 

376 

ISUbsNODSPC (RE6ASP) 

0PO031PO 

LSTSPC ( ISUb) sLSTSPC (REGASP) 

000031 30 

ISL'HsLSTSPC  (PEGaSP) 

000031 aO 

NODSPC ( ISUB) sNODSPC (PEGASP) 

00003150 

HEGASPsLSTSPC (PEGASP) 

00003160 

GO  TO  377 

000031 70 

C 

000031  AO 

c 

NONDESTRUCTIVE  INSERTION 

00003190 

c 

or*003piin 

300 

IAD01*IA00 

0O003P10 

NEi»LOC*REGaSP 

00003PP0 

INOE  Xso 

00003P30 

call  LVF  IN0{ INDE  X. iNOE  X, INDEX, INDEX) 

oroo3p%*' 

PLOG*OP (FLGSPC ( I ADO) .FLaMSK ) 

o«(  r 3 

FLGSPC ( IAOO) «IL06 

n r ^ 

If  (IVAL.EO.-n  GO  TO  90 

r'pnr 

IF(LSTHEO)  3AA, 90.346 

r 

3*4 

IF  ( IPOS  .GT,  0)  60  TO  3?S 

IAD0»IA0D1 

DA043925 


GO  7r  )?s 

C »*OLTJvALl/fc 

i?^  ISht-s\(  U<;PC  (KeOASI-) 

LSTSPC  ( Ibiib)  sLSTSPC  (WtOASP) 

I«^ONst  <;TSPC  (MfcOASP) 

NOO^PC  ( ISUh)  2hOL<iPC  (PtOASP) 
Ptr5ASP=LSTSPC(PfeGASP) 

IF  tPKOASP,tQ.LST5PC(PtOA<;P)  , 60  TO  S09 

KwLOCpsJ'tOASP 

C OPOAie  AvAlLAnLF  SPACt 

I «;i  'h=NOO«;PC  (Pf-G*.6P) 

LSTSPC  { ISUH)  sl^TSPC  (PETjASP) 

ISI'PsLSTSPC  (KtC'ASP) 

^onsPC  { I «;ub)  snouspc  (pegasp  j 
PtGASP=Lf TSPC (WE  GASP) 

NOOSPC  (NE  »iLOC)  sIVALS  { 1 ) 

LSTSPC  (rjfc  t*LOC  ) sKwLOC? 

LN«SPC  (NE  wLOC  ) sMiLOC? 

PLCG  = CP (FlGTMw .F  L?MSK) 

FLGSPt  (•'-E  wLOC)  =ILOo 
KOUSPC  (FofcLOC?)=LSTSPC  ( IaOO) 

LSTSPC(NwLOC?)slAOO 

LKKSPC(NwLOC?)=KtwUOC 

P 1 sANU (FL6SPC (IAOO)  ,F  LGg7 ) 

PLOG=OP  (PI  *0P  (Ft  IPSK  .Fl?»-5K)  ) 

FLG$PC{NwL0C?)*1L0G 

LSTSPC(lAOU)sNt»LOC 

PL0G  = OP  (FL?m«;k  .OP  (FlOHSK  ,FlGSPC  ( I ADD)  ) ) 
FLG5PC(IAD0)*IL0G 

3?0  IF (PEOASP.tO.L^TSPC(PtGASP) ) 60  TO  909 
3^0  IvAL  = IA8S(IvAlS(1)  ) 

PE  TliPN 

C UPDATE  available  SPACE 

3AG  ISt)PsNOUSPC(PtoASP) 

LSTSPC ( I SUB) slSTSPC (PtGASP) 

IS0P=tSTSPC(OEGASP) 

N005PC ( ISUe) =N00SPC(PE6ASP) 
pf  GaSPsLSTSPC (PE  GASP) 

'F  (IPOS  .LT,  (^)  GO  TO  347 
377  I STlOCslnRSPC ( I ADU) 

NOfiSPC  (^E»(LOC)  *I  VALS  ( I ) 

LSTSPC (NEwLOC) *IAOO 
L^»fSPC  (NEtoLOC)  «ISTtOC 
PLOG*OP (FLGTMP.FL2MSK ) 

FL6SPC(NEwlOC)*ILOG 
ISURatSTSPC ( ISTLOC) 

IF ( AND(FL6SPC ( ISUB) *FLOMSn ) ,EQ,  0.)  GO  TO  3?1 
ISUH*LSTSPC(ISTL0C) 

LSTSPC { ISUB) «NtfcL0C 
GO  TO  3?? 

3?1  LSTSPC  ( ISTLOC)  *M«iLOC 
32?  LNFSPC ( IAOD) «NEwLOC 
60  TO  320 

347  NODSPC(NEwLOC)«1VAlS(1) 

LSTSPC (NEbLOC) •LSTSPC (IAOO) 


00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
00003380 
00003390 
00003400 
000034 1 0 
00003420 
00003430 
O0003440 
00003450 
00003460 
00003470 
00003480 
00003490 
00003500 
0O00351 0 
00003520 
00003530 
00003540 
00003550 
00003560 
00003570 
00003580 
00003590 
00003600 
00003610 
00003620 
00003630 
00003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
00003720 
00003730 
00003740 
00003750 
00003760 
00003770 
00003780 
00003790 
00003800 
00003810 
00003820 
00003830 
00003840 
00003850 


40 


LNKSPC (NEwLOC) *1  ADO 

00003B60 

RL06*OR (FlGTWP,FL2MSK) 

00003B70 

FLGSPC (NEwLOC) r ilog 

00003880 

ISU8»LSTSPC { lAOOj 

00003890 

IF ( AND (FLOSPC ( ISUb) ,FL0MSK)  ,EQ.  0.) 

GO  TO  323 

00003900 

K7VAL=LSTSPC(IAD0) 

00003910 

ISUR=LSTSPC (K7VAL) 

00003920 

LNKSPC ( ISUH) =nEwLOC 

00003930 

60  TO  32A 

00003940 

323 

iSUBsLSTSPC ( lADO) 

00003950 

LNKSPC ( ISUH) 5NF  WLOC 

00003960 

32* 

LSTSPC(IADO)snEWLOC 

00003970 

60  TO  320 

00003980 

IvAL=-3 

00003990 

PRINT  20001 

00004000 

20001 

Format (iXfTftH  error, . *there  is  no  additional  space  for  the  graph. 

00004O10 

•THE  program  is  TERMINATED) 

00004020 

STOP 

00004030 

99 

1 VAL=-l 

00004040 

2 

F0RMAT(6H  only  , I4, 2HH  VAlUE(S)  HAVE 

BEEN  INSERTED) 

00004050 

22 

FOPVAT(lX,I6,)h(,I5.35H)  USED  LAST  CELL  OF  AVAILABLE  SPACE) 

00004060 

RETURN 

00004070 

909 

PRINT  ?2.IFUNC,IAP(, 

00004080 

C 

THIS  INSERTION  HAS  FlLLtf'  GIRS  MEMORY 

- call  a user  supplied 

00004090 

c 

PROGRAM  . LVExIT, 

00004  2 00 

IVAL=-1 

0000411 0 

RE  Turn 

00004120 

End 

00004130 

j 


SUBfiOUTiNt  LVSfcTP 

iNTfcGtP  Ft65PC*FLA6SP,PEGASP,BlNFlL*FL0MSK,FLlMSR,FL?M$K,FL5MSK* 

♦ FL3MSR«FL4MSK,FLG67»SfcGSPC 

COMMO^/LVFtAG/FLOPSK,FLl»^SK,FL^MSK^FL3HS^•FL♦NSK♦FL6HSK,FL667 
COHmON/LVVTPS/HINF IL»K0MPAN,N00ESP< I ) /LVVTP6/LISTSP ( I I 

♦ /LVVTR7/LINK<>P  { 1)  /LVVTPB/FLAGSP  ( I ) 

C0B>-0^  /LVfAHL/  ^APS^e^MAP<  n /LV'VSfO/  IS£OS7fStOSPC  n > 
COPPON/LVVTPl/MtMS2t,WEGASP*NOnSPC ( 1) /L VVTR2/LSTSPC ( 1) / 

•L VVTR3/LNKSPC ( 1) /L VV TRA/FlGSPC < 1) 

CQMHON/LVRANO/K PRIME  ,KStF.D«NROM«KONODE  •KOROto«KTCMP 

FL0MSK*l?e 

FL IMSK=64 

Fl?mSK=32 

FL6MSA«4 

FLG67»3 

FL  3mSK»J  6 

FL4MSK=P 

KSfctO»KPMIME/? 

npow*kseeu 

KTEmPsKSEEU-KPRINE 

AUNOOEsKPRIMf 

REGASP*! 

DO  10  I*2.MtMSZt 
LNKSPC ( I ) *0 
FLGSPC ( I ) *0 
NOUSPC ( I ) *1-1 
10  LSTSPCd-l)*! 

FLGSPC (11*0 

LNKSPC (1 ) *0 

NOOSPC ( 1 ) »MEmSZL 

LSTSPC<mEmsZE)«1 

RETURN 

FND 


oooonolo 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

oooonoeo 
000000^^0 
00000100 
000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
OOOOOP60 
00000270 
000002BO 
00000290 
00000300 
00000310 
00000320 
00000330 


i 

i 

I 
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SUBKOUTINE  MOOIO<HOnn 
dimension  IBUF(fltl,IENO(3) 

IFCMOOE  .NE.  01  GO  TO  5 
«RITE<13,1) 

1 F0RHAT<5Xtl6H  OUTPUT  DEVICE  X) 

MRITE(14,2) 

2 FORMAT (5X,16H  OUTPUT  DEVICE  T) 

WRITE(15,3I 

1 F0RMAT(*>X,16H  OUTPUT  DEVICE  Z) 

5 DO  10  1=10.12 

endfile  I 
rewind  I 

REAOd.  7,ENO  = ai  ICHAP 
7 FORMAT(Al) 
lENO  i I-9>  =0 
GO  TO  10 
a ItND<I-9)=l 
10  CONTINUE 
IEOF  = 0 
DO  15  1=1. i 

IFCIFNO(I)  .NE.  0>  go  TO  15 
IFdEOF  ,EQ.  U go  TO  UO 
lEOFsl 
I0UT=9*I 
15  CONTINUE 

IF(IE0F  .EQ.  0)  go  to  50 
REWIND  lOUT 

rouf2=rouT*j 

WRITE CIOUT?, 21)  MODE 
20  FORMAT  (//20X.  12H  MOD=“  INOEX=.l3) 

DO  30  1=1.100 

REAO(IOUT.25»END=60)  (IBUF(JI ,Jsl,90) 

25  FORHAT(aOAl) 

3 0 WRTTE(IOUr2»25)  (IBUFUl  . J = i.aO) 

40  WRITE(6.45) 

45  FORMATC5X.Z3H*****  ERROR  IN  ROLL  CALL  CHECK  - MORE  THAN  1 OUTPUT  0 
•EVICE  WAS  WRITTEN  ON) 

GO  TO  GO 
50  WRITEI6.55) 

55  FORMAT(5X,66H*****  EPROR  IN  ROLL  CALL  CHECK  - NO  OUTPUT  DEVICES  WE 
*RE  WRITTEN  ON) 

GO  REWIND  10 
REWIND  11 
REWIND  12 
RETURN 
ENO 
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FiiNCTin\  Nt>T(lA)  noooonin 

COxhCN  « ( 13?M  ,U(5>on),U)TnL(11.50  0).INITlLl(3).LASTUJ(3)  , IS«CM(3)  • 0n0  00D?O 

• N»T  Ifi  (?)  . JPT«  JTYP.LSTABT  .N?,  IFNC('»'*LOblD.  lOTYP.MC  . 0000003(1 

• LOC.LTYP.ITYP.IbLKOT.HODt.IEHP.IIJtS  OOOOOOAO 

IMTfbFw  A, PLANO  00000050 

DATA  PLANK/IM  / OOOOOOfcO 

IF(IA  .OT.  N)  (jO  to  15  OOOOOOTO 

00  10  1=IA,N  OOOOOOPO 

1F(A(I)  .to.  MLANK)  (jO  to  10  OOOOOOPO 

Nt«T=A(l)  00000)00 

OOOOOllfl 

htTiiKN  onooolPO 

10  continue  00000130 

NfcXT*HLANK  00000140 

1abn«i  000001  so 

PtTUPN  00000160 

15  00000170 

]AslA«l  00000180 

PtTUPN  00000190 

gfijU  00000?00 


10 


Function  NxTMLK{iLoc*itNOi 

COHMON/HASBLK/IHLOCK (?500) ♦NHLOCKtNb^NHHNCh 
COMMON/LAeeLS/STATftA(2,?00) •NLABfcL 
INTEGER  STATRA,HlT6tT 
I*IBLOCK (ILOC) 

IF<I  .EQ,  99^1  GO  TO  10 
IFCI  ,F0.  99ft)  60  TO  5 
NXThLKshITGET (STATPA (2,1 ) ,32,14) 

RETURN 

NXT8LK*IEND4l 

IFINXTPLK  ,GT.  NoLOCK)  CALL  ERROR ( 38 • I UH 1 , I 0H2 , I 0m3 , I 0M4 ) 

RETURN 

NxTbLK«0 

RETURN 

END 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
OOOOOOftO 
OOOOOORO 
00000100 
000001 10 
000001 ?0 
00000130 
00000140 
00000150 


1 


SUHBOUTINF.  PAHSt 

CONMON/LVARGS/LVFUNC.LVVABG.LVVAO.LVVPOS.LVVTYP.LVVAL. 

♦ LVhf  AP.LVVNVL.LVUtST.LVVALS (101 tLVTYPE (10) .LVSKIP 
COMP(lN/LVTAt)L/LVTSl7.LVMAP  ( 1 ) /L  VVSt  0/L  VS  I Zt  , L VSOSP  ( 

COhMON/NEEDS/STJtJSTACK,B,JAS.J. JLAST.pt tMP.STACK (*nOt*) . 
COMMON /FUNC/  NAPY (S.P?^ ,MARGS. lARGS (50) .FNtLOC (5) .NFUNC 
COMnOT /NOPAP/NPPAP.SUtP.NDt PTh.NFLAG 
COMMON  /string/  NTYPE .NSTR.STm 


00000010 

OOOOOOPO 

00000030 

OOOOOOAO 

00000050 

OOOOOOhO 

OOOOOOTO 

nnooooMO 


COMMON  /GIPL /NTt  WMS.PLUS.MlNUS.SL  ASM,LPAR,PMAP.COMMA,STAW,fc  HP.LT . OOOOOOYO 

♦ LI  .GT  ,Gf.  ,tO,NT  .OP.  ANU.NOT  .t GOALS, nPPsNl'  00  00  01  00 

common  /ml/  hol .act lON.FUNCl ,FUNC2,FuNC3,LfcF T .pIGmT .string, ma»j  OOOOOllO 
common  /NltO/  start, ASSOC. LEVtL. STOP  00000)?0 

COMMON  /TYP/  NAPRAy , TYPE  1 , TYPt Z.ERHFlG  000001  30 

common  /NTiMtS/  NTImLS.I  000001*0 

common/ V OR/ VF OP (30)  .NUMCMR.NCmRP.CmAR.NOICT  00 0 00  ISO 

INTEGER  TYPEl, type?, START, TYPO)  00000160 

LOGICAL  EHRFLG.FAIL  00000170 

INTEGER  STR (SOO) .STEMP.ST.UICT ( 19)  OOOOOIMO 

E (JOI  valence  (PICT  ( 1 ) .PLUS)  0 0 000  190 

integer  plus. m 1 MjS .SLASM.LPaH.RPAP. comma, star, e «p.lt ,le .gt.ge ,eo,  ooooopoo 

♦ NE  , OP,  AND,  not.  cC  UALS.OPR  AND,  assoc,  LEVEL,  STOP,  ACT  1 on.  FiOL,  left,  RIGHT  0000  0?  10 

♦ .STPING.FUNCI ,FuNC?,FuNC3  00000??0 

IF(NTIMtS  ,GT.  O)  GO  TO  3 00000?*0 

NTImES=1  ooooo?so 

C EXECUTE  OOOOOP60 

GO  TO  ?5000  0O000P70 

?5001  CONTINliE  0000O?H0 

CALL  PHONEY  00000?90 

call  LVFECH(19)  00000300 

PE  AU  ( 19)  PLUS.mINUS,SLASM.LPAR,PPAR.COMMA,STAR,EXP,1  T,LE, gt.ge, FI),  00000310 
♦NE ,0R .ANO.NOT .EuUALS.OPPANP.ASSOC .LEVEL .STOP, ACT ION.HOL .left ,RIGHT000003?0 

00000330 
000003*0 
00000350 
00000360 
00000370 
000003MO 
00000390 
00(100400 
00000410 
000004?0 
00000430 
00000440 
OOO0O4SO 
0O0004fx0 
00000470 
0n0(«04P0 
OOO004«iO 

oonoosoo 

OOOOOSIO 
ooooos?o 
OOOOOS30 
00000*>40 

ooooosso 

OOOOOSfeO 


♦ •^UNC^•^UNC3f^TEMMS,  (TyP(I)*1s1#3) 

3 IF(K<nTIv  ,Lfc,  0)  PtTU»^N 
fcf^PFLCjs.FAL^t. 

STAPTsTYP (NTYPt ) 

►*AXJ*0 
Nt'PAksO 
TYpn=-i 
TYpe  ?«-i 
KAPPAY«-1 
NUFPTH*0 
NUfP*0 
NF  LaGsO 
00  ?0  I*l*SO 
1 APGS ( I ) =0 
00  ??  J*1 •?? 

00  ??  Isl  ,s 
NAPy ( I • J ) so 
Ou  10  I=1*NSTP 

STPIF(»  { ♦mOL  • I "NTtMP//4«M0L  » 

LVl  AAb  s STkInG 

LVl  ttAh  ♦ HOL 

LVVPO«i  * I 

IVVTYP  a 3 


?0 


LVFuNC*  hol 

LVVAR6*  LVl  AAb 

CALL  LVFINO<LV?  AtLV?  B«LV?  CtLV?  0) 

LVl  AAC  » LVl  AAB 
IF  (LVVAL.NE.*!)  LVl  AAC  » LVVAL 
LVl  AAC  ••  NTEHP 

NTEHP  a LVl  AAC 
LVVTR  • LVVAL 
LVVAL  « -100 

IF  <lvvtr,ne,-1)  go  to  4 

CALL  LVGRN(LVI  AACI 

LVl  AAB  HOL  LVl  AAC 

LVO£ST«  0 

LVTYPE(I)  • 0 

LVVALS(U  • LVl  AAC 

LVVNVL  » 1 

LVFuNC  * MOL 

LVVARGsLVl  AAb 

CALL  LVNSRT 

iF(lvval.lt.o)  call  lvexiklvvali 

IF  (LVVAL. LT.O)  ktTUHN 
LVl  AAC  » NTEhP 

MEMP  a LVl  AAC 
4 CONTiMUt 

1F(ERPFLGJ  go  to  Zb 
ST«IAhS(STR(I) ) 

IF  (STR(l)  .LT,  0)  GO  TO  6 
C NTEMP  hOL 

£••••  ntehp  mol  •••• 

LVOESTa  0 

LVl  AAB  a ST 

LVTYPEdI  * 1 

LVVALS(l)  « LVl  AAb 

LVOESTs  0 

LVVNVL  * 1 

LVFU^C  a HOL 

LVVAkGs  NTEMP 

call  lvnsrt 

IF  (LVVAL  .LT.O)  CALL  L VE X I T ( L V V AL ) 

IF  (lvval.lt. 0)  return 
IF  (EprflG)  go  to  Zb 
C STRING  string  OPRANO//10 

C**»*  STRING  STRING  OPRANO 

LVDEST*  0 
LVTYRE(l)  a 0 
LVVALS(l)  a OPRANU 

LVVNVL  a 1 
LVFUNC  a STRING 

LVVARGa  STRING 

call  LVNSRT 

IF (LVVAL .LT.O)  call  LVEaIT(LVVAL) 

IF  (LVVAL. LT.O)  RETURN 
LVVTR  a LVVAL 
LVVAL  a -100 

IF  (LVVTR. NE. -1 ) GO  TO  10 


00000570 

00000560 

00000590 

00000600 

00000610 

000006PC 

00000630 

00000640 

00000650 

00000660 

00000670 

00000660 

00000690 

00000700 

00000710 

000007?0 

00000730 

00000740 

00000750 

00000760 

00000770 

00000760 

00000790 

OOOQn»DO 

00000610 

000006?0 

00000630 

00000640 

00000650 

00000660 

00000670 

00000660 

00000690 

OOOOOROO 

00000910 

000(j09?0 

00000930 

00000940 

00000950 

OOOOORbO 

00000970 

00000960 

00000990 

ooooiooo 

00001010 

00001020 

00001030 

00001040 

ooooioso 
00001060 
00001070 
00001 060 
00001090 
00001100 
00001 1 10 


IF  (thRf  LG)  bfl  TO  ?S 

onoo 1 1 ?o 

♦>  5Tt»wsriIC7  (ST) 

00001 1 

C STHIN(,-  STMINii  iii.STtxF"*" 

orooiMO 

€••••  ST>*lN(j  STRING  "II 

OOOO 1 1 so 

LVl>esT=  0 

nonoi  ]f*o 

LVl  4»C  « STFF')' 

onoo 1 1 70 

LVTTfit(l)  • 1 

nnoo 11  HO 

LVV»LS ( 1 ) » LV 1 A*C 

nnnoi i vo 

LVI'tsT*  0 

00001 ?oo 

LVVNVL  « 1 

ooooi?io 

LVFllNC  * STRING 

noooi ??o 

LVVAFb*  STJIMj 

0000l?30 

CA1.L  LVNSHT 

0000 1 ?40 

IF (LVVAL.LT.n)  TALL  LVt»IT(LVvAL) 

ooooi  ?f>0 

IF  ((.VVAL  .LT.  fl)  RtTiJRN 

noooi?60 

IF(fPkFLG)  GO  TO  ?b 

0O00l?70 

10  CONTINUt 

OOOOl?HO 

LVl  AAO  > URRANu 

00001 

LVOkST*  0 

00001300 

LVl  AAk  > n 

OOOOI 310 

LVTYPfdl  • 1 

OOOOl 3?0 

LVVALS(I)  « LVl  AAt 

00001330 

LVDEST«  0 

Q0Q01340 

LVVNVL  « 1 

OOOOI  ISO 

LVFUNC  « FUNC? 

00001360 

LVVAPG*LV1  AAO 

00001370 

CALL  LVNSBT 

OOOOl 3«0 

IF  (LVVAL.LT.O)  call  LVExIT(LVVAL) 

OOOOI 390 

IF  (LVVAL.lt. 0)  RETURN 

00001400 

LVOEST*  0 

00001410 

LVl  AAF  • 0 

0000l4?0 

LVTYPE(I)  « 1 

00001430 

LVVALS(I)  • LVl  AAF 

00001440 

LVOESTa  0 

00001460 

LVVNVL  « 1 

00001460 

LVFUNC  » FUNC3 

00001470 

LVVARG>LV1  AAO 

000014HO 

call  LVNSHT 

00001490 

IF (LVVAL.LT.O)  CALL  LVEX IT (LVVAL ) 

ooooisoo 

IF  (LVVAL.LT.O)  RETURN 

ooooisio 

LVOEST*  0 

0O001S20 

LVl  AA6  ■ 0 

00001S30 

LVTYPE(I)  « 1 

000018*0 

LVVALS(l)  • LVl  AAG 

00001850 

LVOEST*  0 

00001S60 

LVVNVL  • 1 

00001570 

LVFUNC  • level 

00001580 

LVVAR6>LV1  AAO 

00001590 

CALL  LVNSRT 

00001600 

IF (LVVAL.LT.O)  call  LVEX I T (LVVAL ) 

00001610 

IF(lvval.lt.o)  return 

00001620 

CALL  RECOG(FAIL) 

00001630 

IF(FAIL)  QO  TO  40 

000016*0 

25  continue 

00001650 

IF(ERRFLG)  print  100 

00001660 

^7 


4 


1 no 

P I't-*- AT  (/) 

0000 1 hto 

CALL 

noool mpo 

= 0 

0000 1 690 

NCMflHS.'-LriAP*  1 

00001700 

t 

<;t»^  1K(>*mOL  ,NCmAP/3S  ( 

-LtP  T .- 

RibHT , -MOL . 

,-STMInh/30/30) 

0000  1 7 1 0 

( • • • o 

Tw  I NO 

* 

hOL 

nooni 7?n 

1 VV*^0*'  = NCHAW 

onco 1 730 

1 VVTY^  = 

nOOOl 740 

LVPl‘NCs  hOL 

noool 7S0 

1 VVAmOs  STh iNo 

0000  1 760 

CALL  L vP  INU  av? 

k *L  V? 

F ,LV? 

G.LV^?  H) 

00001770 

LVl  AttU  = ST«1NU 

OOOOl 7H0 

IP  (1  VVrtL  1 ) LVl 

AAD 

= LWAL 

noOOl 790 

IVVTu  = LWAL 

OOOOlPOO 

LWAL  = -100 

OOOOl H 1 0 

IF  (L  VVTn  ,M.  ,-l  ) liO 

TO 

3S 

0000 1 «?o 

LVl  AAf  s 1 V 1 

AAl* 

00001 fl30 

» e • 

LVl  A A t 

- 

LtFT 

000018*0 

LVVA|i  = -l 

00001850 

1 VVTyhs- 1 

00001860 

LWP0«.=  1 

00001870 

LvFipMfs  ItPT 

00001880 

LVVAMC'SLVl  AAt 

00001890 

call  LVl’LfcT 

00001900 

L V 1 AaP  s LVl 

AAD 

00001910 

c**** 

LVl  AAt 

- 

might 

000019PO 

LVVA(;r-I 

00001930 

lvvtyps-i 

000019*0 

LVVPOS*! 

00001950 

LvFi-NC®  >^UihT 

00001960 

LVVAuG=LVI  AAt 

00001970 

CALL  LVOLtT 

00001980 

LVl  AAL  s LVl 

AAD 

00001990 

LVl  AAt 

- 

HOL 

OOOOPOOO 

LVVAn*. 1 

0000?010 

LVVTYP*-! 

0000?0?0 

Lwpr.«.*i 

0000?030 

LVFU^C*  mol 

0000?OAO 

LWAkG^LVl  AAt 

00002050 

call  LVDLtT 

00002060 

LVl  AAt  s IVI 

AAD 

00002070 

c**** 

LVl  AAt 

- 

STRING 

00002080 

LVVA[)s-  1 

00002090 

LVVTVP*-! 

00002100 

LVVPOS«l 

00002110 

LVFUNC*  STRINL^ 

00002120 

LVVARG«LV1  ' AAt 

00002130 

call  LVULtT 

000021  AO 

LVVTP  « LWAL 

00002150 

LWAL  « -100 

00002160 

IF  (LWTW.FO.-l)  00 

TO 

30 

00002170 

IF  (IWTR.Nt.-n  GO 

TO 

30 

00002180 

3S 

CONTiMit 

00002190 

C 

STRIKG-STMINm 

00002200 

STRING 

- 

STRING 

00002210 

^18 


LVl 

C***«  LVl 


LVVAD*-l 
LVVTYPs-l 
LVVPOS*! 

LVFUNC* 

LVVARGs 
call  LVOLfeT 
OPBAND  t-OPfi AM), -STRING, -ACT  ION, -FuNCl ) 


STRING 

string 


AAO 
AAD 

LVVAUs-  1 
LVVTVRs-l 
LVVPOS=l 
LvFONCs 
LVVARGsLV  1 
CALL  LVULfcT 
C#*«*  LVl  AaU 
LvvaDs-1 
LWTYPs-1 
LVVPOS=l 

LVFi.NCs 

LVVARGsLV 1 
call  LVOLtT 
C**«*  LVl  AAD 

lvvad=-i 

LVVTYPs-1 
LVVPOSsl 
LVFgNCs 
LVVARGsLVl 
call  LVOlET 

C***«  LVl  AAO 

lvvad=-i 

LVVTYPs- 1 

lvvpos=i 

LVF  liNCs 
LVVAR6=LV1 
CALL  LVbLtT 
LVVADs-1 
LW  TYPs-1 
LVVPOSsl 
LvFcNCs 
LVVARGsLVl 
CALL  LVOLtT 
L vvAOs-1 
LVVTYPs-l 
LVVPOS=l 

lvfunc* 

LVVARGsLVl 
call  LVOLtT 

LVVAOs-1 
I VVTYRs-l 

LWPOSsl 
LVF(<NCs 
LVVARGsLVl 
CALL  LVOLtT 
NSTRsNChftP 


OPRANU 


OPRANO 


OPRANO 
AAO 


STRING 


STRING 

AAO 


ACTION 


ACTION 

AAO 


FUNC  1 


FUNC  1 
AAO 


FilNC? 

AAO 


F )INC3 
AAD 


LtVt  L 
AAO 


oooo???o 

0000??30 

0000??A0 

oooo??so 

0000??fe0 

0000??70 

0000??H0 

oooo??vo 

OOOOP300 
nooo?31 0 
0000?3?0 
0000?330 
0000?3A0 
OOOOpiSO 
0000?160 
nooo?37o 

OnOO?3HO 

0000?3SO 

oooopaoo 

0000?A10 

onoo?4?o 

P000?430 

OOOOPaAO 

nooo?460 

onoo?4Go 

0000?*70 

onoo?4hO 

nooo?4RO 

OOOOPSOO 

OPOOPSIO 

0000?S?0 

onoo?s30 

Pono?=.40 

OOOOPSSO 

nooo?s60 

OOOOPS70 

nooopsGO 

nOOG?S90 

OO0OP60O 

0000?MO 

onno?G^o 

OPO0?ft3O 

onoo?G40 

nooo?hso 

0000?^h0 

nooo?fe7P 

nooo?A80 

nooo?60o 

0000P70P 
onooP7i 0 
CP0O?7?O 
nnon?730 
P00(l?740 
f»noo?7^n 
nnoo?7GO 


RETURN 

40  PRINT  300«MAXJ 
300  format ( IX .34H  PARSE 
ERRFLG*.TRUE, 

60  TO  25 

c complete 
25000  CONTiNUt 
LV2A«0 
LV2b«0 
LV2C*0 
LV2O«0 
LV2€«0 
LV?F«o 
LV26«0 
LV?M«0 
60  TO  25001 
END 


failed  after  character  no. 


00002770 

00002780 

•13)  00002790 

00002800 
00002810 
00002820 
00002830 
00002840 
00002850 
00002860 
00002870 
00002880 
00002890 
00002900 
00002910 
00002920 
00002930 


SUBROUTINE  phoney 
INTEGER  FLGSPC,FLA6SP 

COMMON/LVVTRl/LVVS2t*LVvGSP*NOOSPC ( 1 000 ) /LVVTR2/LSTSPC ( I 000 ) 
C(>MH0N/LVVTR3/LNKbPC  (1000)  /L  VV  TR* /FLGSPC  ( 1000) 
COmrOn/lvVTRS/LVFILE •LVCMP«*NODESP ( I ) 

♦ /LVVTP6/LISTSP  ( 1 ) /L V VT W7/L I NR SP ( 1 ) 

♦/L VVTkH/f LA6SP ( 1) 

COMMON/LVRANU/LVNPWH.LVRS.LVRX  fLVKUY,LVRUx,LVTEMP 

COMMON /lvargs/lvfunc«lvv4mg*lwao*lvvpos*lvvtyp*lvval* 

♦ LVHt  ADtLWNVL*LVUtST*LVVALS  (10)  *LVTyPE  (10)  fEVSKIP 

COMmON/l VTAml/LVTSI7*LVMAP ( 1 ) /LVVSEO/LVSI7E .LySOSP ( I ) 

C EXECUTE 

LVVS7E*IOOO 
LVFIL£«0 
LvCmpr«  0 
LVS17E*  1 

LVSR1P«1 
LVRPRM*! 7 
CALL  LVStTP 
RETURN 
END 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
OOOOOIHO 
00000190 
00000200 
00000210 


100 


SUhPOUTiKt  PPNT«; 

CO^»HON/LVAMGS/LV>’UNC*LVVAWlj.LVVAO.LVVPOSfLVyTYP*LVV<IL  • 

♦ LVHfeAP,LVVNVL*LVl*E<T.LVVALS<10)#LVTYPt(10l  .LVSKIP 
COPMO^ /LVT  AHL/l  VTSl  ? *LV^-AP  ( I ) /L  V VSf  ^/L  VS  I 7t  • L VSOSP  ( U 

CO^^l'N  /nL/  HOL  • ACT  ! UN.FhnC  1 •FU^C?»^  uNC3.LkF  T •OIG'^T  tSTMiNG 
CO^""ON/VAP/vKOk •NCrtAH,NtMAkP,CnAP,NUICT 
COMfc'OA  / TYP/NAwhA  Y*  TYPt  1 • T YPt  ? « E PRF  UG  • L ►^S  T Y P 
CO»-'*'ON  /STOIn(i/  NTvPt  ♦nSTp^STP 
COPMOK  /(>1pL/  ^ KN  ( 1 fOPPAr^D 
LOGICAL  tPPFLG 

IMtOt  w VFOP  ( 30  ) .CrtAP,«iT»lNG*MOL*P  lOMT  .STK  ( 1 ) •OPRANO 
C tXtCl'Tt 

GO  TO  ?5oon 
2*.001  continue 

NCHAP«0 
NCHAPPsO 
00  5 I»1.30 
5 VFOP  ( n «0 
NlNT*l 
NTPP«l 

00  10  I«1*NSTR 

C STP1NG(*H0L,  I "NOOt  , ♦STRING,  I *'N  1 •OpRANU/ 1 fe ) 

LVl  AAO  ■ STRING 

LVl  AAU  ♦ HOL 

LVVPOS  « I 

LVVTYP  • 3 

lvFonc«  mol 

LVVAPGs  IVI  AAL 

CALL  LVFIN0<LV?  A,LV?  M,LV?  C*LV?  0) 


LVl 

AAE  a LVl 

AAO 

1 

IF 

(LVVAL.NE.-l ) 

LVl 

AAE  « LWAL 

LVl 

AAE 

NODE  « LVl 

AAE 

NODE 

LVl 

AAD 

♦ 

STRING 

LVVPOS  • 1 

LVVTYP*3 

lvfunc*  string 

LVVARG*  LVl  AAO 

CALL  LVF1ND(LV?  EfLV2  F^LV?  6,LV?  M) 

LVl  AAE  • LVl  AAl) 

IF  (LVVAL.NE.-l)  LVl  AAE  • LWAL 
C**A#  LVl  AAE  ••  N1 

Nl  • LVl  AAE 
Nl  B OPRANO 

LWAL  • -100 

IF  ( N1,NE,  OPRANO)  LWAL  ■ -1 

LWTR  ■ LWAL 
LWAL  • -100 

IF  <LWTR.EQ,-l)  60  TO  16 

NINTbNINT*! 

16  J«0 
20  J«J»1 

C NOOC^LEFT,  J/30  (♦MOL.  I »*CHAR|  ♦H0L.2  «N0ICT) 

c^^^•  node  ♦ LEFT 

LVVPOS  ■ J 


OOOOOOlO 
00000020 
00000030 
OOOOOOaO 
000000*>0 
00000060 
00000070 
00000080 
OOOOOORO 
000001 00 
ooooni  10 
00000120 
00000130 
000001  AO 
00000150 
00000160 
00000170 
00000180 
OOflOOlRO 
00000200 
00000210 
00000220 
00000230 
000002AO 
00000250 
00000260 
00000270 
0O0002R0 
00000290 
00000300 
00000310 
00000320 
00000330 
000003AO 
00000350 
00000360 
00000370 
00000380 
00000390 
OOOOOAOO 
OOOOOAlO 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 


101 


LVVTY^s  i 

ocnooson 

1 iir  LtFT 

onoonsTO 

LVV6»*'('=  NOUfc 

OOOOOSMO 

CtLL  LV»-INU(LV? 

I ,LV? 

JfLV? 

.LV2 

L ) 

ooocn«^po 

LV]  = NOUt 

onoooHOO 

U {LVVAL  ,Nr.  , - 1 ) LVl 

AAD 

= 

lwal 

00000610 

LVVTA  = LWuL 

onoooF-?o 

1 vvAL  = -inn 

OOO0ON3O 

u M vvT«,e(^,-i ) bo 

TO 

30 

0O0006A0 

LV 1 AAL  = LV  1 

AAD 

onnooHHO 

LVl  AAfc 

♦ 

H(JL 

OOfiOOH^O 

LVVPCS  = 1 

00000670 

LVVTvP  = 3 

000006HO 

LVFUNCs  hOL 

000006*^0 

LVVAAOs  LVl  AAfc 

00000700 

CALL  LVFInFmLV? 

M*LV? 

n,lv? 

0,LV? 

P) 

00000710 

LVl  AAF  s LVl 

AAF 

ooono7?o 

If-  (LVVAL.Nfc.-l  ) LVl 

aaF 

= 

lvval 

00000730 

LVl  aaf 

(1 

CHAP 

O0O0O740 

C^-A^v  s LVl 

AAF 

00000750 

LVl  AAF  s LVl 

AAU 

00000760 

LVl  AAF 

♦ 

HuL 

00000770 

Lvvpn?  = 2 

OO0U07H0 

lvvtyp  = 3 

00000790 

Lvf-LNC=  riCL 

OOOUOftOO 

LVVAFbs  LVl  AAF 

oonooH  1 0 

CALL  LVFINDILV? 

0*LV? 

PfLV? 

S.LV? 

T) 

OO00O6?O 

LVl  AAt  s LVl 

AAF 

OOO0OH3O 

IF  (LVVAL  ,NF  ,- 1 ) LVl 

AAt 

= 

LVVAL 

0O000«P0 

LVl  aaf 

n 

NDICT 

uonoopso 

^OICT  2 LVl 

AAfc 

OOOOOAhO 

CALL  F(>PM 

OOO00H70 

00  TO  ?0 

OOO0OH8O 

COMlMit 

OO0O0H90 

IF  (MM  .OT,  MvP)  G(J  Tf>  3S 

OP000900 

M (*HOL. 1 "C MAP, ♦HOL 

.?  "NDICT) 

00000910 

LVl  AAU  = 

N1 

00000920 

LVl  AAO 

♦ 

MOL 

00000930 

LVVPOS  = 1 

00000940 

LVVTYP  = 3 

00000950 

LVFI>C=  hOl 

00000960 

LVVAP(5=  LVl  AAO 

00000970 

CALL  LVFInO(LV? 

U.LV? 

V#LV? 

WfLV? 

X ) 

00000980 

LVl  AAfc  s LVl 

AAO 

OO000990 

IF  (LVVAL.NE.-l)  LVl 

AAfc 

= 

LVVAL 

00001000 

LVl  AAfc 

it 

CHAP 

00001010 

CHAP  s LVl 

AAfc 

00001020 

LVl  AAD 

♦ 

HOL 

00001030 

LVVPUS  = ? 

00001040 

LVVTYP  = 3 

00001050 

LVFuNC=  HOL 

0000 1 OhO 

LVVAPGs  LVl  AAO 

00001070 

CALL  LVFIND(LV? 

Y.LV? 

7*LV? 

O.LV? 

1 ) 

00001080 

LVl  AAfc  = LVl 

AAD 

00001090 

IF  (LVVAL.Nfc.-l)  LVl 

AAE 

3 

Lvval 

00001 100 

102 


c#*** 

LVl  AA£ 

II 

NOICT 

nooo  1110 

NDICT  s LVl 

AAE 

OPOOl 1?0 

call  fopm 

0000) 1 30 

60  TO  37 

ooool 1 AO 

35 

NTmPsMNT 

OOOOl 150 

C 

NOO£*HOL  «NOICT 

00001 160 

c»*** 

NOOfc 

♦ 

MOL 

0000 1 1 70 

LVVTYP  s 3 

OOOOllBO 

LVVPOS  = 1 

0000  1 1 <50 

LVINDX  = 0 

onoo 1 ?00 

lvfunc=  hol 

nooo 1 ?i 0 

LVVAWG=  ^00E 

onooippo 

call  LvFINnCLVlNDX.LvINDX.LVl^iDX.LVlNDX) 

0000l?30 

LVl  AAD  = NODE 

OOOOl ?A0 

IF  (LVVAL.NE.-n  LVl 

AAO 

= lvval 

0000] ?50 

c**«* 

LVl  AAD 

If 

NDICT 

00001 ?60 

NDICT  = LVl 

AAD 

onooi?70 

c 

OPPANO+hOL  ”CMAP 

onoolpflo 

C«  e«  • 

OPPttND 

* 

MOL 

00001 ?90 

LVVTVP  = 3 

onool 300 

LVVPOS  - 1 

00001310 

LV  INUX  = 0 

oooni3?o 

LVFUNC=  hOL 

00001 330 

LVVAPf^s  OPPANO 

none  1 3A0 

CALL  LVfIND(LVlNDx.LVlt<Dl.LVlNl)X.LVInnx) 

00001 350 

LVl  AAU  = UPPANO 

OnOOl 360 

IF  (L  WAL  ,NE  .- I J LVl 

AAO 

s lvval 

00001370 

c**»* 

LVl  AAU 

II 

CHAP 

00001 3«0 

CHAP  = LVl 

aAU 

OOOO 1 390 

call  fopm 

00001400 

37 

J=0 

00001410 

<»0 

J = J*1 

0000 1 4?o 

C 

node *P IOmT . J/ I 0 (♦HOL. I 

♦•CHAP,  ♦HOL  »*NOICT) 

00001 4 30 

Q»«»o 

NODt 

♦ 

PI6MT 

OOOO 1 440 

Lvvpr.s  = J 

OOOO 1 450 

LVVTYP  = 3 

0000 1 4HO 

LVfl'Y-C=  PK’MT 

00001470 

LVVAP(-=  NDLt 

noooiAoo 

call  LVPINUfLV? 

LV? 

3*LV? 

4,LV? 

5J 

00001490 

LVl  AAt)  = NLUE 

OOOO  1 =>00 

IF  (LVVAL.NF ,-l ) LVl 

AAU 

= lvval 

0 0 0 0 1 5 1 (’ 

LVVTP  = LvVAL 

0 0 0 0 1 5 ? 0 

lvval  = -ino 

00001530 

IF  (LVVTW.nj.-l)  60 

TO 

10 

0000)540 

LVl  AAt  = Lv 1 

AAO 

0(^001  5S0 

C o * « * 

LVl  AAt 

« 

MOL 

0000)560 

LVVPOS  = 1 

0 0 0 (t  1 5 7 0 

LVVTYP=3 

OO0015P0 

LV^U^C=  hOL 

OOOO 1 590 

LVVAW«.=  Lvl  ^•At 

ooOO  1600 

CALL  LVFInO(LV? 

LV? 

7.LVP 

P.LV? 

P) 

0000161 0 

LVl  AAF  s LVl 

AmK 

OOOO) 6?0 

IF  (LVVAL. NF.-n  L^l 

AA^ 

= lvval 

0000)630 

c*»** 

LVl  AAF 

•• 

Ch«k 

0000)640 

Chap  s Lvl 

wmF 

00001 650 

10  ) 


I 


I 


! 


LVl  AAF  • LVl 

AAO 

00001660 

LVl  AAF 

♦ MOL 

00001670 

LVVPOS  » 2 

000016HO 

LVVTYP  • 3 

00001690 

LVFUNC*  MOL 

00001700 

LVVAPG*  LVl  AAF 

00001710 

CALL  LVF1N0(LV2 

aa,lv?  Ab*LV2 

ac.lvj 

*0) 

00001720 

LVl  AAE  ■ LVl 

AAF 

00001730 

IF  (LVVAL.NE,-n  LVl 

AAE  « LVVAL 

00001 7A0 

LVl  AAE 

••  NOICT 

00001750 

NOICT  • LVl 

AAE 

00001760 

CALL  form 

00001770 

60  TO  AO 

000017H0 

CONTINUE 

00001790 

NC>1^ (NCMARP-1 ) /A 

00001800 

format  < 1X«30AA) 

00001810 

IF(EPRFl6)  print  100 

• (VFOR(I) tI«l«NC) 

00001820 

complete 

0000 1 83u 

RETURN 

00001 AAO 

CONUNuE 

00001850 

LV?A«0 

00001860 

LV2h«0 

00001870 

LV2C«0 

00001860 

LV20*0 

00001890 

LV?E»0 

00001900 

LV2F*0 

00001910 

LV2G«0 

00001920 

LV?H*0 

00001930 

LV21»0 

000019A0 

LV?J«0 

00001950 

LV2K«0 

00001960 

LV2L*0 

00001970 

LV?M«0 

00001980 

LV?N«0 

000019VO 

LV2O*0 

00002000 

LV?P«0 

00002010 

LV?0«0 

00002020 

LV?P»0 

00002030 

LV?S*0 

0O002OA0 

LV?T*0 

00002050 

LV?U»0 

00002060 

LV?V*0 

00002070 

LV2^.*0 

00002080 

LV?x*n 

00002090 

LV?Y«n 

00002100 

LV?7*0 

0000^1 10 

LV20*0 

OOOJ2120 

LV?1»0 

00002130 

Lv??=n 

000021  AO 

LV?3*0 

00002150 

LV?a*0 

00002160 

LV2S*0 

00002170 

LV?6*ft 

000021 80 

LV27«n 

00002190 

LV2fe«0 

OOO022O0 

LV?R*0 

00002210 

LV2AAX0 

00002220 

LV2Ah«0 

00002230 

L V?aC«C 

000022A0 

LV?AU*0 

00002250 

00  TO  ?N00l 

00002260 

ENC 

00002270 

1 

) 


1 


SU8P0UTINC  PftOG 

COMMON  A(13?6)  ,0(500)  flDTBLdl  #500)  •INITIO  (3)  .LAST  10  (3) 

• NXTIO (2) ,JPTR#N,M,JTYP,LSTART#N2,IFnCNM,L0<»I0,I0TyP#NI 

* LOC.LTYP# ITYP#lBLKOTtMODE,lERR# IDEs 
IOTYP«2 

CALL  STORE 

RET(JRN 

END 


00000010 
• ISRCHO),  00000020 
0#  00000030 

00000040 
00000050 
00000060 
00000070 

ooooooeo 


31  Bits 


.■  MW- 


1 


REAL  function  QIREALIXI 
DATA  R/ZFFFFFFFE/ 

Q1REAL=AN0(X«R» 

RETURN 

END 

00U8LE  PRECISION  FUNCTION  QlOPRE(XI 
DOUBLE  PRECISION  X,T 
OIHENSION  HiZi 
EQUlVALENCE(T,Mfin 
DATA  R/ZFFFFFFFE/ 

T = X 

H(l) :ANO(M(l) ,R) 

M(ZI3AN0(M(Z) ,R) 

Q10PRE=T 

RETURN 

END 

COHPLEX  FUNCTION  QlCOMP(X> 

COHPLEX  X,T 
DIMENSION  NCZ) 

equivalences, H<in 

DATA  R/ZFFFFFFFE/ 

Tax 

Nfl|aANO(Mlll ,R) 

W(2)aANO(N(Z) ,RI 

Q1C0HP=T 

RETURN 

END 


30  Bits 


REAL  FUNCTION  QlREALfX) 

OATA  R/ZFFFFFFFC/ 

QlREALsANO(X,RI 

RETURN 

ENO 

DOUBLE  PRECISION  FUNCTION  QlDPREfXI 
DOUBLE  PRECISION  X,T 
OIHENSION  Ml?) 

EQUIVALENCE(T,N(1II 
OATA  R/ZFFFFFFFC/ 

T = X 

Hll|sANOIH(l),R) 

M(ZI >AN0IW(2I ,R) 

QlOPREsT 

RETURN 

ENO 

COHPLEX  FUNCTION  QlCOHPCXI 
COHPLEX  X,T 
OIHENSION  MCZI 
EQUIVALENCES, H(ll) 

OATA  R/ZFFFFFFFC/ 
f =X 

NCll «AND(M(1I ,R> 

M(Z)sANO(M(Z),R) 

Q1C0HP«T 

RETURN 

ENO 
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29  Bits 


KE*L  FUNCTION  QIREALIX) 

OAIA  R/EFFFFFFF8/ 

Q1REAL=AND(X,RI 

RETURN 

end 

DOUBLE  PRECISION  FUNCTION  QlOPREIXt 

DOUBLE  PRECISION  X.T 

DIMENSION 

EQUIXALENCETT.NTin 

! DATA  R/ZFFFFFFF8/ 

1 T = X 

! M(ll>ANOIM(lt ,RI 

; MI2) :ANOIN(ZI ,RI 

I C(10PRE  = T 

' RETURN 

! END 

i COMPLEX  FUNCTION  QtCOMP (XI 

COMPLEX  X.T 
OIMENSION  W(EI 

I EQUIVALENCEIT.Mdll 

! DATA  R/ZFFFFFFF8/ 

T»X 

H(ll>ANO(M(ll ,R) 

I H(2|:AN0(WI2I,R) 

Q1C0MP=T 

j RETURN 

END 


I 


28  Bits 


j REAL  FUNCTION  QIREALIXI 

OAIA  R/ZFFFFFFFO/ 

\ Q1REAL>AN0(X.RI 

' RETURN 

END 

I DOUBLE  PRECISION  FUNCTION  QtOPREIXI 

||  DOUBLE  PRECISION  X.T 

DIMENSION  N(2I 
EQUIVALENCEIT.NIIII 
DATA  R/ZFFFFFFFD/ 

I T.X 

i N(ll>ANO(Nlll .Rl 

NI2I •ANO(N(2l .Rl 

I Q10PRE»T 

; RETURN 

{ END 

I COMPLEX  FUNCTION  QlCOMPIXI 

COMPLEX  X.T 

[ OIMENSION  NI2I 

K EQUIVALEMCETT.NIlll 

i:  DATA  R/ZFFFFFFFO/ 

il  T.X 

S NTIMANOIMMI.RI 

MI2I.ANOINI2) .Rl 
QICOMP.T 

1 RETURN 

END 


1 
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27  Bits 


REAL  FUNCTION  QIREAL  Ul 
DAT*  R/ZFFFFFFEO/ 
aiREAL>ANO(X,R> 

RETURN 

ENO 

DOUBLE  PRECISION  FUNCTION  QlOPREiXT 
DOUBLE  PRECISION  X,T 
OIHENSIOn  NIEI 
EQUIVALENCEIT.NTIII 
DATA  R/ZFFFFFFEO/ 

T«X 

NUT  <ANOlMM)  iR) 

MI2MAN0IW(3).RI 

Q10PRE»T 

RETURN 

ENO 

CONPLEX  FUNCTION  QICOHPIXI 
COMPLEX  X,T 

dimension  m(2I 

EQUIVALENCEIT.MIlll 
DATA  R/ZFFFFFFEO/ 

T*X 

Nil*  =ANO (Mil) .Rl 
M(2I =ANO(M(2l (R) 

Q1C0MP»T 

RETURN 

ENO 


26  Bits 


REAL  FUNCTION  QIREALIXI 
OAIA  R/2FFFFFFC0/ 

QlREAL>ANOIXtRI 

RETURN 

ENO 

DOUBLE  PRECISION  FUNCTION  OlOPREIXI 
DOUBLE  PRECISION  X,T 
DIMENSION  HI2) 

EQUIVALEMCE(T,M(1») 

DATA  R/2FFFFFFC0/ 

T*X 

N(1I-AND(HI1I tRI 

M(2l<ANO(MI2l  .R) 

aiOPRE»T 

RETURN 

ENO 

COMPLEX  FUNCTION  QICOMP(X) 

COMPLEX  XtT 
DIMENSION  M(2> 

equivalence (t,m(ii) 

OAIA  R/ZFFFFFFCO/ 

T»X 

N<1I>AN0IM(1I >r> 

NIZXANOIMIZ)  iRI 
Q1C0MP»T 

return 

ENO 


I OH 


25  Bits 


1 

1 


«E*L  function  91RE*LIX» 

0*T«  R/ZFFffFf»0/ 

91REAL>*N0(X,R) 

RETURN 

END 

DOUBLE  PRECISION  FUNCTION  91DPREIXI 
DOUBLE  PRECISION  X.T 
DINENSION  N(Z) 

EOUIVALENCEIT.NUt) 

DATA  R/ZFFFFFF80/ 

T*X 

N(1I>AN0(MI1>,R> 

MI2l<ANOIN(2) ,R) 

910PRE*T 

RETURN 

END 

CONPLEX  FUNCTION  91C0MP(XI 
CONPLEX  X.T 
DINENSION  H<2) 

EOUIVALENCEIT.HdIt 
DATA  R/ZFFFFFFSO/ 

T*X 

Ndl  =ANO(Hdl  ,R) 

N(2I<AN0IH(2),RI 

91C0MP.T 

RETURN 

END 


24  Bits 


REAL  FUNCTION  91REALIXI 
OATA  R/ZFFFFFFOO/ 

91REAL*AN0IX.R) 

RETURN 

END 

DOUBLE  PRECISION  FUNCTION  910PRE<XI 
DOUBLE  PRECISION  X.T 
DIMENSION  N<2» 

E9UIWALENCE  tT.Ndll 
OATA  R/ZFFFFFFOO/ 

T*X 

Ndl<ANO(Nd)  .R) 

NIZdANO(H(2t  .R* 

910PRE»T 

RETURN 

ENO 

CONPLEX  FUNCTION  OlCONPIXt 
CONPLEX  X.T 
DINENSION  M(2I 
EQUIVALENCECT.Wdll 
DATA  R/ZFFFFFFOO/ 

T»X 

Mdl  >ANO(Md)  .R) 

NI2I>AN0(NI2I .Rl 

91C0NP»T 

RETURN 

ENO 


l()‘» 


SUBROUTINC  R6ALCK 

COHNON  A(13?6)  t0(500)  f lOTBLOltSOO)  tlNlTlOO)  «LASTIU<3)  « 

• NXTlOl?)  *JPTflfN*H,  JTYPfLSTART*N2*IFNCNH*L06I0*  lOTYRtMD 

• LOC*LTYPfITYP.IBLKOT*WODE*ltRR*IO£S 
C0MH0N/L06IC/L06»L06ST 
COMMON/RiALNO/iRCALt IRELNOvlP 
INTIGER  A,OECPT»EEE,PLUS«NlNUS«OEEfELOC 

DATA  0ECPT/1H,/,EEE/IHE/#PLUS/IH*/ ♦MINUS/ rH-/*OEE/l HO/ 


00000010 
ISRCHC3)*  00000fl?0 
« 00000030 

OOOOOOAO 
OOOOOASO 
00000060 
00000070 
00000080 


IDE$«0 


00000090 


IRELNO«0 

IF  < IP  •&£•  N)  60  TO  90 
JPTR«IP 

IF (NEXT < JPTR)  .EO.  OECPT)  GO  TO  S 
JPTR«IP 

IF (ITYPE (JPTR)  .EO.  ?)  60  TO  10 
60  TO  90 

5 IF(JPTR  .6T*  N)  60  TO  90 

IF ( ITYPE (JPTR)  .NE.  2)  GO  TO  90 
60  TO  20 

10  IF(JPTR  .GT,  N)  go  TO  90 
I?  IF ( ITYPE (JPTR)  .EO.  2)  60  TO  15 
IF(A(JPTR-1)  .NE.  OECPT)  GO  TO  90 
LOGST-JPTR 
CALL  LOGCHk 

IF (LOG  .EO.  1 ) 60  TO  90 

JPTR«LOGST 

GO  TO  20 

15  IF(JPTR  .GT.  N)  go  TO  90 
GO  TO  12 
20  IREAl«1 

IF(JPTR  ,6T.  N)  GO  TO  35 
22  IF ( ITYPE (JPTR)  .EO.  2)  GO  TO  25 
IF(A(JPTR-1)  .£0.  EEE)  GO  TO  24 
IF(A(JPTR-1)  .NE.  OEt)  GO  TO  30 
IOES*l 

24  ELOC«JPTR«2 
60  TO  40 

25  IF (JPTR  .GT.  N)  60  TO  35 
60  TO  22 

30  ELOC*JPTR-2 
32  IRELNO*ELOC 
RETURN 
35  IRELND>N 
RETURN 

40  IF (JPTR  .GT.  N)  go  TO  32 
NXT-NEXT (JPTR) 

IF(NXT  .EO.  PLUS  .OR.  NXT  .EO.  MINUS)  60  TO  45 
JPTR*JPTR-1 

IF  (ITyPE (JPTR)  .NE,  2)  60  TO  32 
IF(JPTR  .GT.  N)  GO  TO  35 
60  TO  47 

45  IF(JPTR  .GT.  N)  60  TO  32 

IFdTYPE(JPTR)  ,NE.  2)  60  TO  32 
47  IFdTYPE(JPTR)  .EO.  2)  60  TO  50 
lRELNO»JPTR-2 
RETURN 

50  IF(JPTP  ,6T.  N)  GO  TO  35 
GO  TO  47 
90  IREAL>0 
RETURN 
END 


OOOOOIOO 
000001  10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000260 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000360 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
00000560 
00000590 
00000600 
00000610 


SUBROUTINE  RECOG(FlN) 

COMMON/LVAPGS/LVFUNCfLVVAPGtLVVAOfLVVPOS«LVVTYP«LVVAL* 

•LVHC ADfLVVNVLtLVDEST  *LVVALS( 10) tLVTYPE (10) tLVSKiP 
COHMON/LVTAeL/LVTSI?#LV«AP(l  ) /LWSEQ/L  VSIZE  *L  VSOSP 
COMMON/HL/HOL* ACTION*FuNClfFUNC2*FUNC3*LEFT.PIGHT,STPlNG*MAxJ 
COMMON/NEED/STAPTt ASSOC* LEVEL* STOP 
C0MM0N/STPIN6/NNN(?) ,STP 

COMMON/NEEOS/STJ* JSTACK,R*JAS* J* JLAST*RTEMP*STACK (400* A) 

INTEGER  HOL 

INTEGER  ST APT  * ASSOC  * STOP ♦P£TRN*P,$TJ, ST ACK.STR ( 1 ) * ACT  I ON * STR I N6 , 
• PTEMP 

logical  fail*fin 
fin«. false. 

C EXECUTE 

GO  TO  25000 
25001  continue 
JSTACK*0 
J»1 

C start  "R 

START  •*  R 

R « START 

C STRlN6*STRING.J/70  »STJ 

C«*«*  STRING  ♦ STRING 

LWPOS  ■ J 

LVVTYP  • 3 

LVFUNC*  STRING 

LVVAR6«  STRING 

call  LVFIN0(LV2  A*LV2  B*LV2  C*LV2  0) 

LVl  AAO  • STRING 

IF  (LVVAL. NE, -1 ) LVl  AAO  • LVVAL 
LVVTR  * LVVAL 
LVVAL  * -100 
IF  (LVVTR. EQ. -1 ) 60  TO 
LVl  AAO  •• 

STJ  » LVl  AAO 

STR1N6*h0L.I  STRING 

STRING  » 

LWPOS  » 1 

LVVTYP«3 

LVFUNC«  HOL 

LVVARG>  STRING 

CALL  LVFIN0(LV2  E.LV2  F.LV2  G*LV2  H) 

LVl  AAO  « STRING 

IF  (LVVAL. NE. -1 ) LVl  AAO  » LVVAL 
LVl  AAO  STRING 

LVUEST-  0 
LVl  AAE  » M 


C 


70 

STJ 


HOL 


LVTYPt(l)  • 
LVVALS(l)  » 
LVOEST«  0 
LVVNVl  ■ I 

lvFunc  • 

LVVAR6«LV1 
CALL  LVNSRT 


I 

LVl 


AAE 


STRING 

AAO 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 

00000)50 

00000160 

00000)70 

00000)80 

00000)90 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 


1 1 


IF  (LVVAL.LT.O)  call  LVExIT  (LWAL) 

00000620 

IF  (L VVAL.lt. 0)  PETURN 

00000630 

6 

CONTINUE 

00000640 

C 10 

R (♦ASSOC//15#*STOP//15.*STOP/20) 

00000650 

10 

CONTINUE 

00000660 

LVl  AAD  X P 

00000670 

LVl  AAO  ♦ ASSOC 

00000660 

LVVTYP  a 3 

00000690 

LVVPOS  * 1 

00000700 

LVINOX  * 0 

00000710 

LVFuNCs  ASSOC 

00000720 

LVVARGx  LVl  aAO 

00000730 

call  LVFINO  (LV 1NOX.lv  inox t LVINDX.lv INOX) 

00000740 

LVl  AAF  a LVl  AAO 

00000750 

IF  (LVVAL.NE.-n  LVl  AAF  a LVVAL 

00000760 

LVVTP  a LVVAL 

00000770 

LVVAL  = -100 

00000780 

IF  (LVVTR.NE .-1 ) GO  TO  15 

00000790 

LVl  AAO  ♦ STOP 

00000800 

LVVTYP  a 3 

00000810 

LVVPOS  « 1 

00000820 

LVlNOx  * 0 

00000830 

LVFUNCa  STOP 

00000840 

LVVAPGa  LVl  AAO 

00000850 

CALL  LVFIND(LVINDX.LVINDX.LVINOX.LVINDX) 

00000860 

LVl  AAF  a LVl  AAO 

00000870 

IF  (LVVAL. NE.-l)  LVl  AAF  a LVVAL 

00000880 

LVVTP  * LVVAL 

00000890 

LVVAL  a -100 

00000900 

IF  (LVVTP. NE.-l)  GO  TO  15 

0000O91 0 

LVVAL  a .100 

00000920 

IF  (LVl  AAO.NE.  STOP)  LVVAL  • -1 

00000930 

LVVTR  a LVVAL 

00000940 

LVVAL  a -100 

00000950 

IF  (LVVTP. EO. -1 ) GO  TO  ?0 

00000960 

15 

JSTACKaJSTACK*! 

00000970 

STACK (JSTACK.l)ap 

00000980 

STACK(JSTACK.2)rO 

00000990 

STACK (JSTACK.3)rj 

OOOOl 000 

STACK ( JSTACK.A) aO 

OOOOlOlO 

C 20 

P*ACTI0N/??  "N 

00001020 

20 

continue 

00001030 

P ♦ ACTION 

00001040 

LVVTYP  a 3 

00001050 

LVVPOS  s 1 

00001060 

LVINOX  a 0 

00001070 

LVFUNCa  ACTION 

00001080 

LVVAPGa  R 

00001090 

CALL  L VF INO ( LV INUX.L VINOx.LVINDX.lv  I NOX» 

00001 100 

LVl  AAO  a M 

OOOOl  1 10 

If  (LVVAL. Nt. -1 ) LVl  AAO  a LVVAL 

00001 120 

LVVTP  a LVVAL 

00001130 

LVVAL  a .100 

OOOOl 140 

IF  (LVVTP. EO. -1 ) GO  TO  22 

OOOOl 150 

c**** 

LVl  AAD  ••  N 

OOOOl 160 

00001  170 
OOOOllAO 
00001  1*90 
00001 ?00 
OOOOl?lO 
00001??0 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001 320 
00001330 
00001340 
00001350 
00001360 
00001370 
00001360 
00001390 
00001400 
00001410 
000*01420 
00001430 
00001440 
00001450 
00001460 
00001470 
0000)480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001560 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00001660 
00001690 
00001700 
00001710 


i 


4? 

CALL  ^STOP(FaU) 

00001720 

IF  {F  AIL»  on  TO  99 

00001730 

JSTACK*jsTACk*1 

00001740 

STACK ( JSTACK , 1) SW 

00001 750 

STACK  ( JSTACK  • J *0 

00001760 

ST  ACK  ( J«-T  ACK  , s J 

00001770 

STACK  ( JSTACk ,4 ) *0 

0000 1 7H0 

C 

P*ACTI()N/44  ’‘N 

0000 1 790 

W ♦ ACTION 

00001 AOO 

LWTYP  a 3 

00001 fll 0 

LWPOS  * 1 

00001820 

LVINl>>  = 0 

00001P30 

LVfl'NC*  ACTION 

00001840 

LWAP&s  9 

00001850 

CALL  LVF  IND  (LvInOx.lv  INLjx.LVINOX.LVINOX) 

00001860 

LVl  AAl)  * U 

00001870 

IF  (IVVAL.Nt.-l)  LVl  AAO  « LVVAL 

00001 8H0 

LVVT^«  * LVVAL 

0000 1«90 

LVVAL  » -100 

00001900 

IF  (LVVT«,Uj,-1  ) bO  TO  44 

00001910 

LVl  AAO  ••  N 

00001920 

N«LVl  AAL* 

00001930 

call  secant (N.F AIL) 

00001 940 

IF  (FAIL  ) 00  TO  99 

00001950 

44 

CALL  SLLvLL(FmIl) 

00001 960 

IF  (FAIL)  RtTliPN 

00001970 

GO  TO  40 

00001980 

COMTINUt 

00001990 

Call  9tcov(«tTWN) 

00002000 

IF  (hF  7MN  .LT.  0)  bO  TO  70 

00002010 

C 

PtT9N*ASsnc//io 

00002020 

RFTRN  « ASSOC 

00002030 

LVVAL  * -100 

00002040 

IF  ( RETPN.Nt,  ASSOC)  LVVAL  • -1 

00002050 

LVVTP  • LVVAL 

00002060 

LVVAL  ■ -100 

00002070 

IF  (LVVTW.Nt.-l ) 60  TO  30 

00002080 

IF (RF  TRN  .EQ.  0)  60  TO  10 

00002090 

CALL  SLtVEL(FAlL) 

00002100 

IF(FAIu  go  TO  fS 

000021 1 0 

GO  TO  30 

00002120 

bb 

IF (JSTACK  .LE.  1 ) 60  TO  70 

00002130 

JSTACK«JSTACK-1 

00002140 

GO  TO  99 

00002150 

70 

fin«,twue. 

00002160 

RETURN 

00002170 

C 

complete 

00002180 

?5000 

CONTINUE 

00002190 

LV?A«0 

00002200 

LV2B«0 

00002210 

LV2C«0 

00002220 

LV2D«0 

00002230 

LV2£*0 

00002240 

LV2F«0 

00002250 

LV20«0 

00002260 

LV?M«0 

00002270 

LV2I-0 

00002280 

LV2J«0 

00002290 

LV2K*0 

00002300 

LV2L«0 

00002310 

60  TO  25001 

00002320 

END 

00002330 

2SOO  1 
10 


c 

c***« 


SUHROUTINE  PECOV(PETRN) 

COMMCN/LVARGS/LVFuNC  •LVVARGtLVVADtLWPOStLVVTYP  *L VVAL  • 

♦ LVHE ADfLVVNVL  *LV0EST*LVVALS( JO) .LVTYPE  < 1 0) *LVSKIP 

C0MHUN/LVTAHL/LVTS12*LVMAP  ( 1 ) /LWSEGl/LVSIZt  ,LV50SP  < I ) 

COMMON  /NEED/  start, ASSOC, LEvEL.STOP 

COMHON/NEEOS/STj,JSTACt^,R,JAS,  J,  JLAST,RT£mR,STACK  (400,4) 

COMMON  /STRING/  NNN(2),STR 

COMMON  /hi/  MOL, ACTION, FUNCl ,FUNC?,FUNC3, left, right, STRING 
INTEGER  START, ASSOC, STOP, STACK ,STR ( 1 ) , ST J , R , STR I NG ,RE TRN , TE MP 

♦ , RIGHT ,HOL 
EXECUTE 

60  TO  25000 
continue 

RsSTACK ( JSTACK  , 1 ) 

JAS»STACK (JSTACK ,2) ♦! 

R*ASSOC.JAS  ••TEMP//30 

R » ASSOC 

JAS 
3 

ASSOC 
R 

LVFIN0(LV?  A,LV2  B,LV2 

AAO  s R 

1)  LVl  AAO 


LVVPOS 
Lvvtyp 
LVF  UNCa 
LVVARGs 

call 

LVl 


c***< 


c**** 


C,LV2 


0) 


LVVAL 

TEMP 


C**** 


30 
»*R ) 


STOP 


IF  (LVVAL, NE,- 
LVl  AAO  •• 

TEMP  « LVl  AAO 
LVVTP  a LVVAL 
LVVAL  * -100 
IF  (LVVTR.NE.-l ) GO  TO 
R (aSTOP//40,,STOP/l6sSTOP//40 
CONTINUE 

LVl  AAO  a R 

LVl  AAO  s 

LVVAL  a -100 

IF  (LVl  AAO.nE,  STOP)  LVVAL  « -1 

LVVTP  s LVVAL 
LVVAL  a -100 

IF  (LVVTR,NE.-1)  GO  TO  40 

LVl  AAU  ♦ STOP 

LVVTYP  a 3 

LVVPOS  a 1 

LVINOX  a 0 

LVFUNCs  STOP 

LVVARGs  LVl  AAO 

CALL  LVFlNO(LVlNDX,LVlNDX,LVlNOX,LVlNOX) 


LVl  AAF  a LVl 

IF  (LVVAL, NE.-l) 
LVVTP  a LVVAL 
LVVAL  a -100 
IF  (LVVTP, EQ, -1 ) 
LVl  AAF 

LVVAL  a -100 
IF  (LVl  AAF 


AAO 


LVl 


AAF 


LVVAL 


16 

STOP 


NE  , 


STOP)  LVVAL 


LVVTR  a 
LVVAL  a 


LVVAL 

-100 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

OOOOOOTO 

oonooofto 

OOOOOORO 
OOOOOlOO 
onoool 1 0 
00000120 
000001 30 
00000140 
00000150 
00000)60 
00000) To 
OOOOOIFIO 
00000)90 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
000002TO 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
000004)0 
00000420 
00000430 
00000440 
OOOOOaSO 
00000460 
00000470 
00000480 
00000490 

ooooosoo 

OOOOOSIO 

OO000S20 

0000PS30 

OOOOOS40 

OOOOOSSO 


IF  (LVVTH,NE.-1 ) 60  TO  *0 

LVl  AAF  H P 

R * LVl  AAF 
J*STACK ( JSTACK,3) 

JSTACKsJSTACK-1 

RETPNsO 

RETURN 

16  jstacksjstack-i 

IF ( JSTACK  ,lE.  0)  GO  TO  ?0 

IF (STACK ( JSTACK ,3)  .LT.  J)  CALL  SEmAnT ( 0 • F A I L ) 

JsSTACK ( JSTACK*3) 

GO  TO  10 
?0  RETRNs-1 
RETURN 
AO  CONTINUE 

jsSTACK (JSTACK, 3) 

IF (STACK (JSTACK , A)  ,6T,  0)  60  TO  16 

PETPNsSTOP 

RETURN 

C 30  temp  MR 

30  continue 

C***«  TEMP  M R 

R s TEMP 

IF  (JSTACK  ,EO,  1)  GO  TO  3S 
IF(  R .Nt.  STACK (JSTACK,! ) ) GO  TO  35 
NTEMP=STACK ( JSTACK -1 , 1 ) 

JHARKsJSTACK 

31  STACK ( JMARK,A) s-1 
JMARKsJMARK.1 

IF(R  ,FCi,  STACK  (JMARK,1)  .AND,  STACK  ( JMARK , A ) ,LT,  0)  GO  TO  15 
IF(R  ,E0.  stack  (JMARK, 1 ) .AND,  JMARK  ,NE,  0)  60  TO  31 
IF(P  ,N£,  NTEMP  .or,  JAS  .NE,  ST ACK ( JST aCK- 1 , ? ) .OR. 

♦ STACK (JSTACK-1 ,A)  ,GE,  0)  GO  TO  35 
GO  TO  15 
35  continue 

IF  (STACK  (JSTACK, 3)  ,LT.  J)  CALL  SEMANT ( 0 *F A I L ) 
stack (JSTACK ,?) sJAS 
JsSTACK (JSTACK, 3) 

IF  (STACK  (JSTACK, A)  ,GT,  0)  S T ACK ( JST ACK , A ) *0 

RETPNsASSOC 

RETURN 

C COMPLETE 

?5O00  continue 

LV?Asn 

LV?E*0 

LV?C=0 

LVPPsO 

GO  TO  ?5001 

END 


SUBROUTINE  ROLCHK I T 1 • I ? * II * 1 4 , 15  * 1 6 ) 
OIHENSION  ftRr,C6)  • SUBNM  ( 2 1 , ISUBNH  < 3 1 
equivalence  (ISUBNHU)  •SUftNHTlI  ) 

OATA  HASK/ZFFOjrooo/ 

ARGIl ) =ANO( tl f 1ASK) 
APG(Z)=AN01I?»MASK) 

ARG( 3) sANOi I3,HASK) 
ARG(4):AN0(I4«NASK> 

ARG(5)  :ANO(  15  .NASO 
ARG1b)sAN0(t6|MASK) 

ISUBNMdl  =3 
ISUBNN{2) =0 
NCHARsO 
J = 0 

10  j=j4l 

00  30  1^1,4 
NCHAR  SNCHAR41 
IM  I .FQ.  I » GU  TO  ?0 
NSHiFTsA*  (I-l  ) 

call  SHIFTR(ARGINCHAR) ,N$HIFT) 

20  SUBNi(J) =0R<SU9NN| J| ,A9GCNCMAR) » 
IF(NCWAR  .EQ.  6»  GO  TO  35 
50  continue 
GO  TO  10 

35  MRITE«3.40)  I SUBNH  < 1 1 , I SUBNU  2 » 

40  F0RHAT(A4>A2) 

RETURN 

END 


SUbROLiTINfc  search 

COhhOn  a ( 13?H)  *U(50n).IDTRL(UfSOO)*INlTlU<31  fLASTlO  (3)  , ISRCH(3)  , 

• NXTI0(?)  • JPTR  *N,M.JTyP*L«;TAHT.N?,  IFnCNH  *1.0610#  I OTYPiKIO* 

• L0C*LTYP,ITYP*  lHL»<OT,HOOf  , ItPP.  U)tS 
DO  ?0  lOTYP*!#? 

J=INITI0(10TYP) 

IF(J  .EO.  0)  60  TO  IS 
DO  10  I*1#N1U 

IF  ( ICf'MP  (NXT  10,  IDThL*  J#  1 1 ) *EO,  0)  60  TO  S 
ISPCH( lOTYP) »1 
10ES=L0C 
LOCaJ 
GO  TO  ?0 
S J*1DTBL(4,J) 

IF (J  ,EO,  0)  GO  TO  15 
10  CONTINUE 
15  ISPCM ( lOTYP) *0 
20  CONTINUE 
PtTUPN 
END 


OOOOOOIO 
00000020 
00000030 
00000040 
00000050 
00000060 
OOOOOOTO 
OOOOOOHO 
00000090 
00000100 
000001 10 
00000120 
000001 30 
00000140 
00000150 
00000160 
000001 70 
OOO0O1HO 
00000190 
00000200 


SUHftOiiTIhf  S6  MftNT  (N,f  A IL  > 

COK'fc'ON/LVAwij^i/L  VfUNC,LVVA>^6,LVVAC,LVVPOS*LVVTYP*  L V(/Al  . 

• LVHhAp,LVVNVL»LVOtST,LVVALSnO)*LVTYPE(10)  *L  VS«  IP 

CO►'MO^g/LVTA«L/L  VTSI7*LVMAP  ( I ) /L  VV^t  VS  I ?f  • L VS«jSP  ( 1) 

COUPON /►  UNC/  NAPy  (S*??)  *PAtt(5S.  1 APliS  (SO  ) •FNCLOC  (S)  «NFiinC 
COPPOKj/hL/mOL.  ACT  lON.f  UKCl  . F UNC?  • F UNC  3 t L£F  T , P IOmT  , S TP  I NO  * mA  x J 
CCPPON  /TvP/  NAPnay , T YPt 1 • T YPt?,fePMFLG 

CUPPON  /STPIN<'/  NTYPfe.NSTP.STP 
COMMON  /JL/  JSTOP 

COMMON  /GIPL/Nie  PM<;,PLUStMlNUS*SLASH,LPAP,PPAP,COMMA,STAP,txPtLT* 

• Lt  •OT*bt  .tO.Nt  •OP*ANU,NOT*tUUALS«OPPAND 

COMMO^ /NFLOS/ST J.JSTACK ,P, J AS, J, JLAST.pt tHP, STACK ( AOO. A) 
common  /NttO/  PTAPT, ASSOC. LtfVtL. STOP 
COMMON / NOP AQ/nOPAP .NDLP.NOEPTh.nFlAG 

INTfc^1^P  «OL.  ACTION.FnnC.LEFT  .PlGhT.STPlN6.PPAP  .nTJ.P.STaCk 
S .fc  XP.FONCI  .FliNr?,FuNC3.TYPt  1 . TyPLP.TyPE  (<?.S).STP(1)  .stop 
% ,ALPhA,btTA,«»AM^A,OPPAND.FQuALS.ANO.OP.COMMA 
LOO  I CAL  SK IP.FLaG.EPPFlO.FAIL .NOTFLO 
INTtGfc  P FuNCpF .b I TPuT.PLMS.FL { 3)  .hi TGE  T 

IMFGtP  GtTTYP.GLTDlM 

LATA  FLAG/.FALSE ./.FuNCPF/bS/ 

DATA  TvPfc/AHPt.  AL  • 1«  » AHCOMP,3mLE  X , AMOOUh. 

• ?hL£ .AhINTF , IhOtP. AhLOGI .3HCAL/ 

gettyp  { 1 1 ) =MOt)  (ii.inoono)/ioooo 
GE  TLiM ( 1 1 ) SHOD (ll.ioooono»/ioonoo 
C EXECUTE 

GO  TO  psoon 
PSOOl  CONTINUE 

FAILs,f-  ALSt  • 

IF  (N  .EG,  0)  GO  TO  <59V 

GO  TO(10.?0.30.AO*SO.fe0.7n.M0.90.1000.1100.1?00,l300.lAn0.1SOO. 

« IHOO.N 

C 10  P*STJ/1  \ «p//l? 
in  CONTINUE 

C****  P ♦ STJ 

LVVTyP  * 3 
LWPOS  s 1 
LVU-UX  a 0 
LVFUNCs  STJ 

LVvAPGs  P 

CALL  LvF INO (L vINOx.lv INOK .LVINOX.L VINO* ) 

LVl  AAU  « P 

IF  (L VVAL^NE 1 ) LVl  AAO  • LVVAL 

LVVTP  * LVVAL 

LVVAL  * -100 


if  (LVVTR.E0.-1  I 

GO 

TO 

1 1 

LVl  AAD 

•• 

H 

N • LVl 

AAO 

LVVTP  » LVVAL 

LVVAL  s -100 

IF  (LVVTM,Nt,-l) 

GO 

TO 

1? 

11  fail«.tpue. 

PE  TUPN 

C PPIMAPy  PfCOGNlzEO 

1?  IF(STJ  ,tO.  PLUS  .OP,  STJ  .EO.  HlNUSl  60  TO  1?6 


onnonn 1 0 
oonnon?o 

00000030 

OOOOftOAO 

oooonoso 

oonoonbo 

ooooooTo 

OnooonMo 

nnnooopo 

0 0 0 0 0 I 0 0 

ooonoi  10 
onnnoi  <>o 
noooni 30 
noooo 1 AO 
0 n 0 0 0 1 s 0 

onrooi NO 
0 o 0 0 n 1 7 0 
OOOUOl «0 
(jooon  1 po 
OOOOOPOO 

ooonopio 

oooon??o 

nooon?30 

00000?AO 

ooooo?so 

oonoo?NO 

noooo?7o 

onooo?rtO 

oooonp'^o 

00000300 

00000310 

00000370 

(•0000330 

oooOf>3An 

onooniso 

onooo3NO 

00000370 

onoOolPO 
00O0O3J0 
OOOOOaOO 
OOOOOAl 0 
OOOOOaPO 
fiO000A30 
onoooAAO 
OOOOOaSO 
ooonoAbO 
OOO0OA7O 
OOOOOAftO 
OO000A90 
OOOOOSOO 
OOOOOSIO 
OOO00S70 
OO000S30 
OOOOOSAO 
OPOOOSSO 


1 IH 


1F(STJ  ,NE,  PPAf^)  GO  TO  1?1 

JSTACK«JSTACK^1 

STACR ( JSTACk • 1 ) sSTOP 

stack  < JSTACK •?) sO 

STACK  <JSTACK,3)=J 

stack ( JSTACk ,4) ^0 

^JJMPSP 

call  SLfcVtL  (SKIP) 

JSTACKsJSTACK-1 

psNTMP 

JLAST=1 

IF(JST0P  ,GT.  0)  JLASTsSTACK (JST0P,3) 

C STPIN6*hOL.JLAST (-STPIn6*STPING  tMiTYPEl"") 

c***»  STPIng  ♦ HOL 

LVVPOS  s JLAST 

LVVTYP  = 3 

tVFuNCs  HOL 

LVVAPGs  string 

CALL  LVF1ND(LV?  A,lv?  h,LV?  C*LV? 

LVl  AAO  = STRING 

IF  (LVVAL.Nfc .-1 ) LYl  AAO  » LVVAL 
LVI  aaF  s LVl  AAO 

C**«*  LVl  AAF  - STRING 

lvvao=-i 
LVVTYP=-1 
LVVPOSsl 
LVFuNCs 
LVVAPGsLV I 
CALL  LVOLfT 
LVl  AAF  X 

C**»*  LVl  AAF 
LVOESTs  0 
LVl  AAG  = TYPtl 

LVTYPE(l)  s 1 
LVVALS(l)  s LVl  AAG 
LVOeSTs  0 
LVVNVL  ® I 
LVFUNC  s 
LVVAhGsLVI 

call  lvnsrt 

IF  (LVVAL.LT.O) 

IF  (LVVAL.LT. ft) 

RETURN 
\^\  CONTIF'UE 
C GET  TYPE 

RETAsGETOlM (STW ( J) ) 

IF  (fc-E  TA  ,NE.  5)  GO  TO  1?S 

c OPERAND  IS  A Function  reffkEnce 
IF{NDEP  .to.  ft)  GO  TO  IP 
LVVPOSs-LVVPOS 
LVVTYPa  3 
LVVPOS*  1 

lvdest*  ? 

LVl  AAO  » 1 
LVTyPE(I)  * I 


0) 


STRING 

AAF 


LVl  AAU 
STRING 


STRING 

AAF 


CALL  LVt)iIT(LVVAL) 
PtTuRN 


00000560 

00000570 

OOOOOSflO 

00000590 

00000600 

0O0006I0 

000006?0 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

000008?ft 

00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
0OO0OH9O 
00000900 
00000910 
0ft('009?0 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
OftOO 1 000 
00001 01 0 
OOOOl 020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001 080 
onool 090 
00001 100 


I 19 


LVVALSdJ  » LVl  AAO 

LVOEST*  2 

LVVNVL  » 1 

LVFUNC  « FuNCl 

LVVARGs  OPRANO 

CALL  LVNSRT 

IF  (LVVAL.lt, 0)  CALL  L VE;<I  T ( L V V AL  J 

IF (lvval.lt.o)  return 

18  RsFuNCRF 

JSTACKsJSTACK*! 

STACK (JSTACK,l)=R 
STACK (JSTACK,?)=0 
STACK (JSTACK,3)=J^1 
STACK(JSTACK,4)*0 
1?5  ALPmA*6ETTVP (STP ( J) ) 

IF(TYPE1  ,GE.  0)  GO  TO  13 
C SET  type  of  statement 
TYPE IsALPHA 

IF(NTYPE  .£0.  3)  TYPEIs-1 
C 126  STRING4H0L,J(-STRING,STRIN6  m»'TyPE1»") 

126  continue 

STRING  ♦ MOL 

LVVPOS  r J 

LVVTYP  s 3 
LVFUNCs  HOL 

LVVARG*  STRING 

CALL  LVFIN0(LV2  E,LV?  F,LV? 

LVl  AAO  » STRING 

IF  (LVVAL.NE.-l)  LVl  AAO  * LVVAL 
LVl  AAF  s LVl  AAD 

C**»*  LVl  AAF  • STRING 

lvvao*-i 

LVVTYP=-1 
LVVPOS*! 

LVFUNC*  STRING 
LVVAPG*LV1  AAF 
call  LVULET 

LVl  AAF  s LVl  AAO 

LVl  AAF  STRING  »"• 

LVDEST*  0 
LVl  AAM  s TYPEI 

LVTYPE  ( 1)  « 1 

LVVALSd)  * LVl  AAM 
LVOEST*  0 
LVVNVL  = 1 

LvFliNC  » STRING 

LVVARGslvI  AAF 
call  LVNSRT 

IF (LVVAL.LT.O)  CALL  L Vt » I T ( L V V AL ) 

IF  (LVVAL  .LT ,0 ) Rk  TURN 

return 

! 3 IF  (FLAG)  60  TO  |S 
C CmECK  for  MlitO  MODE  EkPRFSSION 

IF(TyRE1  .EQ.  alpha  .or.  alpha  ,fO. 

14  M»TvPE  !♦! 


OOOOI I 10 
00001120 
00001 1 30 
00001  J 40 

oooonso 
0000] 160 
00001 170 
00001 180 
00001 190 
00001200 
00001210 
00001220 
00001230 
00001240 
000012SO 
00001260 
00001270 
00001280 
00001290 

oooonoo 

00001310 
00001320 
OOOOI 330 
00001340 
OOOOI 3S0 
00001360 

G,LV2  M)  00001370 

OOOOI 380 
00001390 
00001400 
00001410 
OP001420 
00001430 
00001440 
000014SO 
00001460 
00001470 
00001480 
00001490 
OOOOISOO 

ooooisio 

OP001S20 
00001S30 
00001S40 
000015SO 
00001S60 
00001S70 
OOOOI S80 
0000 IS90 
00001600 
OOOOI M 0 
00001620 
00001630 

5)607016  00001640 

OO0016S0 


I .M) 


1 

i 

I 

1 

I 


N2«ALPHA*1 

EPRFLGs.TPUE. 

call  E whop  <7  7, type ( I ,M ) ,TyPL (?,N1 ) , T YPE  < I ,N? ) , T YPE  ( ? • N? ) 1 
C $TPIN6*M0L.  J ( -STRING,  ST  WING  ••••TYPEI"«) 

c^^^•  STPlNO  ♦ MOL 

LVVPOS  * J 

LVVTYP  * 3 

LVFUNC*  mol 

LVVAHGs  STRING 

CALL  LVFlNOCLV?  1,LV2  J*LV2  K,LV2  L) 

LVl  AAD  » STRING 

IF  (LVVAL.NE,-! ) LVl  AAD  « LVVAL 

LVl  AAF  s LVl  AAD 

LVl  AAF  - STRING 

LVVAD*-1 


LVVTYP*-! 

LVVPC'S=  1 

LVFUNCa  STRING 
LVVAPGsLVl  AAF 

CALL  LVULET 

LVl  AAF  ■ LVl  AAO 

LVl  AAF  STRING 

LVDEST*  0 

LVl  AAI  ■ TYPEI 

LVTYPE<1)  a 1 

LVVALS(l)  a LVl  AAI 

LVOEST*  0 

LVVNVL  a 1 

LVFUNC  • STRING 

LVVARGaLVl  AAF 

call  LVNSRT 

IF  (LVVAL. LT.O)  CALL  L VE )« I T ( L V V AL) 

IF  (LVVAL, LT.O)  RETURN 
RETURN 

C PARSING  AN  EXPONENT 

15  IF((ALPMA  ,EQ,  3 .AND,  TYPEl  ,£Q.  3) .OR . ( ( T YPE 1 ,EQ.  0 .OR, 

« .EQ.  2)  .AND. 

♦(ALPHA  .EQ.  0 .OR,  ALPHA  .EQ,  2)))  60  TO  16 
CALL  CRROR(78,J,IOM2«1DH3*IDH4) 

EPRFLGa.TRUE, 

C STRING*H0L,J  ( -STRING, STRING  “wTYPE  1 •••• ) 

STRING  ♦ HOL 

LVVPOS  a J 

LVVTYP  ■ 3 

LVFUNCa  HOL 

LVVARGa  STRING 

CALL  LVFIN0(LV2  M.LV?  N,LV2  0,LV2  P) 

LVl  AAO  a STRING 

IF  (LVVAL, NE.-l ) LVl  AAO  « LVVAL 
LVl  AAF  a LVl  AAO 

£••••  LVl  AAF  - string 

LVVADa-1 
LVVTYPa-l 
LVVP0S«1 

LVFUNCa  STRING 


OC001660 

00001670 

00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

nnoo 1 740 

00001750 
00001 760 
00001770 
OOOOl 760 
00001790 
OOOOIHOO 

noooiflio 

00001 A?0 
0000  I 830 
O0001840 
00001 R50 
00001 660 
00001670 
00001H60 
00001690 
00001900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001960 
00001970 
00001960 
00001990 
00002000 
TyPEI  00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
00002090 
00002100 
00002110 
00002120 
00002130 
000021  AO 
00002150 
00002160 
00002170 
00002160 
00002190 
00002200 


LVVAM('SLVl  AAF 

oooo??io 

CALL  LVDLtT 

onoo???o 

LVl  AAF  X LVl  AA(. 

0000??30 

c«*** 

LVl  AAF  STPINO 

MM 

0000??A0 

LVi'fcSTs  0 

0O0P??S0 

Lvl  AAJ  X TYf'tl 

nnoo??60 

lvtyp^ ( 1)  = 1 

on00??70 

L VVALS ( 1 ) X L V 1 AAJ 

nnoo??Ho 

LVDESTs  0 

OAon??Ro 

LVVNVL  = 1 

nnoo?300 

LVFiiNC  X «.T«lNo 

nnoopii 0 

LVVAW6XLVI  AAF 

0o00?'^?0 

CALL  LVNSPT 

nnoo?330 

IF  (L  VVAL  .LT  .0  ) C«uL  LVt«IT|LVV&L) 

0000?340 

IF  (L  VV  AL  .LT  • 0 ) Nfc  TliKh 

nnon?iso 

Pt  TliWN 

OO00?160 

16 

IF((,not.  Flag  .and,  typ^i  , 

LT,  ALPHA) .OR, (FLAG  ,ANU, 

AL  PhA 

,NF , 30no0?370 

♦ ,ANU,  TYPE!  ,LT,  ALPHA))  TYPtl'AUPHA 

0n00?380 

c 

«nTw1N(>*hOL  , J l-^TP  ING,<;TP  1 wo 

***'TYPF  1»'m) 

0000?3RO 

c**«* 

STPINO  ♦ 

MOL 

OPOOPaOO 

LVVPOS  X J 

nnoo?4 1 0 

LvvTYP  * 3 

0000?A?0 

LvFu^Cs  HOL 

onoo?A3o 

LVVAHOx  <;trino 

onoo?440 

call  LVFIN0(LV?  u*lv? 

R#LV?  S,LV? 

T) 

nooo?450 

Lvl  AAU  X string 

nO00?460 

If  ILVVAL  .NF  . -1  ) L VI  AAU 

X UVVAL 

OOOOP470 

LVl  AAf  X LVl  AAO 

0000?480 

LVl  AAF 

STRING 

COOO?4RO 

LVVAU=-1 

onoopsoo 

L vVTYPx- 1 

nooo?sio 

LVVP0S=1 

0000?s?ft 

LVfUNC*  STRING 

0000?S30 

LVVAPGxLVI  aaf 

oooo?s«»o 

CALL  LVf)LET 

onoo?sso 

LVl  AAF  X LVl  AAO 

onoo?*^6n 

c**»* 

LVl  aaf  string 

MM 

oroo?s7o 

LVDFST*  0 

onoopsHn 

LVl  AAK  X TYPtl 

onoopsRO 

LVTYPF ( 1)  • 1 

onoo?60o 

LVVALS(l)  « LVl  AAK 

OOOOP61 0 

LVDEST*  0 

0000?6?0 

LVVNVL  » 1 

0000?6  30 

LVFunC  * STRING 

OOO0P64O 

lvvapgxlvi  aaf 

0000?6SO 

CALL  LVNSRT 

nooo?66o 

IF <LVVAL.LT.0)  call  LVEXIT(LVVAL) 

OOOOP670 

IF(LVVAL.LT.O)  return 

0000?680 

RETURN 

0000?6RO 

C WILL  SCAN  AN  EXPONENT 

0000?700 

?0 

IF<STJ  ,LT,  0)  return 

0000P71 0 

C 

R*STJ/11  ”R 

0000?7?0 

R * 

STJ 

0p00?730 

LVVTYP  • 3 

nn00?740 

LVVPOS  ■ 1 

OPOOP7SO 

I 


LVIKOX  * 0 
LVFUNC*  STJ 

LVVAHGs  R 

CALL  LVF INO(LVlNOX*LVlNDx.LVlNOXiLVlNOX) 
LVl  AAD  ::  » 

IF  (LVVAL*N?.-1)  LVl  AAO  b LVVAL 
LVVTR  s LVVAL 
LVVAL  = -100 

IF  (LVVTR. tO.-l ) GO  TO  11 

LVl  aAO  ••  R 

W 9 LVl  AAP 

Flags. TRut, 

RF  T^•R^ 

C RFCOGM7K*  A TtRf- •HROOUCT  0»  PRIMARY  PfcRhAPS 
30  CONTlNl't 
KTMpsM 

IF  (NUtP  .tU,  0 ) GO  TO  34 
LVVPOS=-LVVRO<^ 

LVVTYPb  3 

LVVPnSs  I 

LVDtSTs  2 

LVl  AAm  « 1 

LVTYPF  ( 1 ) = 1 

LVVALS ( n = LVl  AA« 

LVDt«;T=  ^ 

LVV\VL  = 1 

LVfO^C  = 

LVVAPGs  OPPANO 

CALL  I VNSWT 
IF  (LVVAL. LT.n) 

IF  (LVVAL. LT.O) 

34  COKTiNUt 
iTbSTsO 

IF (STJ  .LT.  0)  GO  TO  31 
P*STJ  ••W//3? 


FliNCl 


CALL  LVExIT(LVVAL) 
Rt  Town 


c 

c**»* 


LVVTVP  = 
LVVPOS  = 
LVlNUX  = 

LvU'NCs 
L VVAPG  = 


<^TJ 
P 

call  LVF  IMmLV  INOx  .LVIM'Y  ,LV  InOX  .L  VInOX  » 
LVl  AAF  S P 

IF  (LVV**L.Ne  ,-l  ) LVl  AAF  = LVVAL 


C***»  LVl 


C 31 
31 


A AF 

P a L V 1 AAF 
LVVTR  s LVVAL 
LVVAL  s -100 
IF  (LVVTR. NF .-1 ) GO  TO 
R*ST0P/39 
COKTiNUk 


3? 


LVVTYP 
LVVPOS 
LV  UiOx 


0000?7F)0 

00O0P770 

onoo?7fto 

0000?790 

OOOOPROO 

OOOCPfllO 

0000?R?0 

00002R30 

0000?A40 

0000?B60 

onno?R60 

0000PR70 

0000?R60 

NEFOING  PAPtNTHES] 7ATION00002R90 
OOOOPROO 
OOOOP910 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
000029RO 
00002990 
00003000 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
00003070 
000030RO 
00003090 
0O0031 00 
000031 10 
000031 20 
00003130 
00003140 
00003150 
00003160 
00003170 
000031  HO 
00003190 
0O003200 
0000-»210 
00003220 
00003230 
00003240 
000032^0 
00003260 
00003270 
0000  32R0 
00003290 
00003300 


I J i 


LVFUNCs  STOP 

LVVAPG*  R 

CALL  LVF  INO (LVlNUX,LVlNUX«LVlNOX,LVlNOX) 

LVl  AAF  s R 

IF  (LVVAL.NE ,-l ) LVl  AAF  * LVvAL 
LWTR  a LVVAL 
LVVAL  » -100 
IF  (LVVTR.fcQ.-l ) GO  TO 
C***»  LVl  AAF  ••  « 

R s LVl  AAF 

IF<STJ  .LT,  0 .ANU,  KTMP  hb9)  60  TO  38 

iTf STa-1 
32  CONTINUE 

C IF  unary  plus  or  minus  return 

IF  (STACr  ( JSTOP,  1 ) ,Nt.  Prf*:*  .AND.  ST  ACn  ( JSTOP  * 1)  .nE. 
JLASTsSTACN ( JSTOP*3) -1 

IF  (STACK  (JSTOP, 1 ) .to,  ?H8)  JL AS T* JL AST - 1 
C STRINO^HOL.  JLAST  ( -STR  I , s TR I NG  m»*T  YPE  I '••• ) 

C«*«*  string  ♦ HOL 

LVVPOS  = JLAST 

LVVTYP  = 3 

LVFu^C^  HOL 

lvvargs  string 

CALL  LVFIN0(LV?  U.LV?  V,LV?  R.LV? 

LVl  AAF  a STRING 

IF  (LVVAL, Nt, -1 ) LVl  AAF  a LvvAL 
LVl  AaL  = LVl  AaF 

C«»»*LV1  AAL  - string 

LWALia-1 
LVVTYPs-1 
LVVPOS=l 

LVFunCs  string 

LVVARG=LV1  AAL 

CALL  LVOLfcT 

LVl  AAL  = LVl  AAF 

LVl  AAl  string  hm 

LvPfSTa  0 

LVl  AAR  a TYPfcl 

LVTYPt(l)  a 1 

LVVALS(l)  = LVl  AAM 

LVbfeSTs  0 

LVVNVL  = 1 

LvFuNC  = STRING 

LVVARGsLVl  AAL 

CALL  LVNSRT 

IF  (LVVAL. LT,0)  CALL  L VF » I T ( L VV AL ) 

IF  (LVVAL, LT.O)  OtTUWN 

C STPING*hOL,J(-STRING. STRING  *'»«TYRt  I "•») 

C****  STRING  ♦ H(»L 

LVVPOS  = J 

LVVTYP  * 3 

LVFuNCa  h«OL 

LVVAR('S  STRING 

CALL  LVFINO(LV?  Y,LV?  7,LV?  0.LV2 

LVl  AAE  a STRING 


1 AAF 

STRING 


STRING 

AAL 


00003310 
00003320 
00003330 
000033A0 
00003350 
00003360 
000033T0 
000033HO 
00003390 
00003400 
00003410 
00003420 
00003430 
00003440 
llO)  60  TO  3300003450 
00003460 
00003470 
00003480 
00003490 
00003500 
00003510 
00003S20 
0(^003530 
X)  0000*^540 

OO003SS0 
OOn03S80 
O000  3=>70 
onno 

oorn  3SR0 
0000381*0 
noooihio 
00003820 
00003830 
00003840 
00 0 03880 
110003880 
00  00387(1 
OOOO  3880 
000038RO 
00003700 
00003710 
00003720 
O0O03730 
00003740 
OO0037S0 
0000  37b0 
OO003770 
000O37M0 

0OCpO37R0 
OO003H00 
O0003M1 0 
000(1  3820 
00003830 
1 ) 00003840 

OO003MS0 


STRING 

AAL 


IF  (LVVAL.Ne.-I)  UVl  AAF  a LVVAL 
LVl  AAL  * LVl  AAF 

C***»  LVl  AAL  - STRING 

LWAD«-1 
LVVTYPa-1 
LVVP0S«1 

'.vfl'nc*  string 

LVVAHGaLVl  AAL 
CALL  LvDLtT 

LVl  AAL  * LVl  AAF 

€••••  LVl  AAL  STRING 

LVOeST*  0 
LVl  AAN  a TYPEI 

LVTyPE(I)  a 1 
LVVALS(I)  * LVl  AAN 
LVOtST«  0 
LVVNVL  * 1 

LVFUNC  * STRING 

LVVARGaLVl  AAL 
CALL  LVNSRT 

IF<LVVAL.LT,0)  call  LVEXIT (LVVAL) 

IF  (LVVAL. LT,0)  RETURN 
IFdTEST  .LT.  0)  J»J-1 
RETURN 
33  CONTINUE 

IFdTEST  .LT.  0)  J«J-1 

jstack»jstack*i 

STACK ( JSTACK. 1 ) aSTOP 
STACK (JSTACK.?)aO 
STACK(JSTACK,3)*J 
STACK ( JSTACK .♦) aO 
NTMRaR 

CALL  SLEvEL(SKIP) 

JSTACKajsTACK-l 

RaNTNP 

JLASTal 

IF  (JSTOP  ,GT.  0)  JLAST«5TACK ( JSTOPt3) 

NTNPaTYPE 1 
JJ-JLAST 

IF (STACK (JSTACK , 1 ) .EQ.  418  .AND.  JLAST  .GT.  1)  JJ»JLAST-1 
C STRIN0*H0L.JJ*STRING  "TyPEI 

STRING  ♦ MOL 

LWPOS  » JJ 

LVVTYR  a 3 
LVFuNCa  hOL 

LVVARGa  STRING 

CALL  LVFIN0(LV?  ?*LV?  3*LV?  4,LV?  5) 

LVl  AAF  a STRING 

IF  (LVVAL. NE .-1 ) LVl  AAF  a LVVAL 
C***»  LVl  AAF  « STRING 

LVVTYP  a 3 
LWPOS  « 1 
LVINDX  « 0 
LvFuNCa  STRING 

LVVARGa  LVl  AAF 


CALL  LvFIND(LVUL'X,LvIM)X,LVInOX,LVIND)I) 

LVl  AAL  » LVl  AAF 

IF  {LVVAL.Nt.-n  LVl  AAL  » LVVAL 
C***»  LVl  AAL  ••  TYPfl 

T>Pfcl  * LVl  AAL 

If  {.NOT.  FLAT,  ,(jP.  NTMP  .Fii,  3»  00  TO  3S 

IF  ( <MMP.EO.O.(*P.MMH,FO,?)  .AND,  (TYPE  1 . k U . 0 • 0»  . T yPt  1 

ELRFLGs.TRut . 

call  t-RR0W(7»»,J,lL»M2,IDH3,IDM4) 


3b  continue 

IE(TYPkl  .OT, 
F(iNC  =H)NC  I 
If  (Type  i ,E0, 
If  (TVPt 1 .£Q. 


? .OW*  NTyPE  ,GT,  1)  00  TO  3f* 

1)  FuNC=FUNC? 

?)  EunCsFuNC3 


C STRInO*n0L,JLA<;T  LfcfT(.l  LPAk,,l  FuNC) 

STWINO  ♦ HOL 

LVVPOf  s JLAST 

lvvtyp  = 3 

LVFUNCs  HOL 

LVVAPGs  «;tring 

CALL  LVFIN0(LV?  6*LV?  7,LV? 

LVl  AAL  s STRING 

IF  (LVVAL. NE.-l)  LVl  AAL  * LVVAL 
LVl  aAF  s LVl  AAL 

LVl  AAO  » left 

C**»*  LVl  AAO  , 1 

LVVTvPs  3 
LVVPOS*  1 

c***»  LVl  AAF  LVl  AAO  LPAR 

LVDESTs  1 
LVTYPt ( 1)  » n 
LVVALSd)  * lpar 

LVVNVL  s 1 
LVFuNC  = LVl  AAO 
LVVAR6»LVl  AAF 

CALL  LVNSRT 

IF  (LVVAL, LT.O)  CALL  L VE X I T (LVVAL  ) 

IF  (LVVAL. LT, ft)  RETURN 
LVl  AAF  s LVl  AAL 

C**«*  LVl  AAO  • 1 

LVVTYP*  3 
LVVPOS*  1 

C**«*  LVl  AAF  LVl  AAO  FUNC 

LVl’ESTs  1 
LVTYPE  (1  ) * ft 
LVVALS(l)  = FUNC 

LVVNVL  » 1 

LvFliNC  « LVl  AAO 
LVVARGsLVI  AAF 

Call  LVNSRT 

IF  (LVVAL, LT, ft)  CALL  L VE X I T ( L V V AL ) 

IF  (LVVAL, LT. ft)  RETURN 

c string*hol,j  right  HPAR 

Ca**«  string  ♦ HOL 

LVVPOS  « J 


ooOOaa I 0 
OftOOA4?0 
00004430 
00004440 
OO0044SO 
O00044HO 
.to,?)) GOTO  3S00004470 
00O044M0 
00004490 

onoo4Nfto 

0O004S1O 

00004S?0 

onoo4S3ft 

00004S40 

ono04S50 
00004SH0 
00004S70 
ftO004L«O 
00004S90 
ft0004HOn 
9)  00004A10 

0O004H?0 
onoo4H3o 
O0004A40 
oor'04HS0 
00004HHO 
00004670 
OOOOa^HO 
0ft(l04HV0 
00004700 
00004710 
ftft0047?O 
00004730 
00004740 
ft00047SO 
00004760 
00004770 
000047PO 
00004790 
ftftOOAROft 
ft  ft  0 0 4 H 1 0 
ftft004H?0 
OO004H30 
00004A40 
ftl>Cft4  ASO 
0ftO04AH0 
00004670 
00004 MHO 
00004690 
ftft004'^00 
0000491 0 
ftO0049?0 
00004^30 
0O00494O 
OftO049S0 


LVVTYP  s 3 
LVFu^Cs  hOL 

LVVAPGs  STRING 

call  LvFINO(LV?  AA,LV?  AB.LV2  AC 

LVl  AAL  * STRING 

IF  (LVVAL  *Nt  , -1  ) LVl  AAL  « LWAL 
C#***  LVl  AAL  RIGHT  RPAR 

LVOeSTs  0 
LVTVPF(l)  * 0 

LVVALS(l)  * RPAR 

LVVNVL  s 1 
LVFllNC  = RIGHT 

LVVAPGsLVI  AAL 
CALL  LVNSRT 

IF  (LVVAL.LT.O)  call  LVfcXlT(LVVAU 
IF  (LVVAL.LT.O)  WfcTURN 

38  IFdTtST  ,LT.  0 .AND,  STJ  .LT.  0)  J«J*1 
FLA6«. false. 

RETURN 

3S  FLAG*. false. 

GO  TO  11 

C CHECK  FOR  CORRECTNESS  OF  SUBSCRIPTS 
40  NPsP 

C P*STJ/ll  MR 

C***»  R ♦ STJ 

LVVTYP  = 3 
LVVPOS  * 1 
LVINOX  * 0 
LVFUNC*  STJ 

lvvapg*  r 

call  LVFlNO(LVlNDXfLV inox *LVINDX*LV INOX) 

LVl  AAL  * R 

IF  (LVVAL.NE  .-1 ) LVl  AAL  * LWAL 
LVVTP  * LWAL 
LWAL  * -100 

IF  (LVVTR.EO.-l)  GO  TO  11 

LVl  AAL  •*  R 

R » LVl  AAL 
NHE  TAsGETDIM (STP ( J) ) 

IF  (NR  3*S9  .ANO.  NbtTA  .NE,  ♦)  GO  TO  4T 

ALPHAsGf  TTYP (STP ( J)  ) 

GAPHAsSTR ( J) /I  000000 
IF  (NTYPE  .EO.  3)  GO  TO  45 

1F(PP  ,EU,  839  .ANO.  NhETA  ,E0.  0)  60  TO  45 


.NE,  4)  GO  TO  4T 


00004960 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

000050B0 

00005090 

00005100 

00005110 

00005120 

00005130 

00005140 

00005150 

00005160 

00005170 

00005180 

00005190 

00005200 

00005210 

00005220 

00005230 

00005240 

00005250 

00005260 

00005270 

00005280 

00005290 

00005300 

00005310 

00005320 

00005330 

00005340 

00005350 

00005360 

00005370 

00005380 

00005390 


IF(NP  ,F0 

. 3*^9) 

GO  TO 

45 

00005400 

if (NP  ,EU 

. 

AND.  NHETA  ,EQ 

. 4) 

GO  TO 

45 

00005410 

IF (NHETA 

.EO. 

0 

.AND. 

N9  .Ell, 

935) 

60  TO 

45 

00005420 

IF  (NTYPF 

.EU. 

2 

.AND. 

NR  ,EO. 

935 

• ANO, 

STR(J-l)  ,NE. 

-7)  GO 

TO 

4500005430 

IF  (NTyPE 

.EO. 

2 

.AND. 

NR  .EQ. 

359 

• AND. 

NHETA  ,EQ.  0) 

60  TO 

11 

00005440 

CALL  ERR0R(79,J,IDM2#IDM3#I0M4) 
FPPFLGs.TRuE, 

45  CONTINUE 

IF(GAPMA  »6E.  6 .AND.  NRFTA  .EQ,  4) 
f call  EPR0R(76*I0PI.IUM2,I0M3*I0h4) 
IF(ALPHA  .FQ,  3)  GO  TO  46 


00005450 

00005460 

00005470 

00005480 

00005490 

00005500 


1^7 


N 1 *AUPHA ♦ 1 

oooossio 

f RRFLb* , TRUt  , 

onoosspo 

CALL  ERROR (flO.TyPt  <l*Nl».TrPE  (?*Nl}fJ, I D«4) 

OCOCSS30 

4^ 

IF  (NHETA  .to,  Rk  TURN 

0000SS4O 

MAWGS  = waR»jS*  1 

OOPOSSSO 

LVl  AAO  s OPRAnO 

oncOSSGO 

LVDtST=  0 

PO00SS70 

LVl  AAR  s MARbS 

nooossHO 

LVTYPk  ( 1 ) » 1 

0O00SS90 

L VVALS  ( 1 ) S L V 1 AAR 

OOOOS^sOO 

LVDkSTs  0 

OOOOSMO 

LVVNVL  = \ 

OO0OS6?O 

LVM'NC  = Ft.NC? 

00O0S630 

lvvar&slvi  aao 

OOOOS640 

call  lvnsrt 

POOOS6SO 

IF  {L VVAL  ,LT . n ) call  LVt*lT(LVVAL) 

0000Sf>60 

IF(LvvAL.LT,r>)  Mk  Turn 

POOOS6  70 

LVOt<;T=  0 

COOOSKHO 

LVl  AAJ  = J 

0000^890 

LVTvPt ( 1 ) s 1 

onoosToo 

LVVALS  11)  = LVl  AAJ 

OOOOS’lO 

LVPEST=  0 

OOOOSTPO 

LVVNVL  = 1 

n00OS73O 

LVFuNC  = FuNC3 

0O00S740 

LvvarGslvI  aao 

OOOOS7SO 

CALL  LVNSRT 

PO00S74O 

IF  (LVVAL  ,LT.n»  CALL  L VE X 1 T ( L V V AL ) 

OOOOS770 

IF  (L VV AL ,LT  , 0 ) Rt  TURN 

OPOOS7MO 

LVOESTs  0 

OPOOSTRO 

LVl  AAS  = NOfcPTH 

OOOOShOO 

LVTyPE  ( 1 ) = 1 

OOOOSA  1 0 

LVVALS(l)  = LVl  AAS 

OOOOSAPO 

LVUtSTs  0 

OOOOSR30 

LVVNVL  = 1 

0n00SR40 

LVFUNC  = LfVtL 

OOOOSASO 

lvvawg=lvi  aao 

OOOOSrtGO 

CALL  LVNSRT 

noOOS870 

IF  (LVVAL ,LT ,0)  call  LVtxIT(LVVAL) 

OOOOSflHO 

IF(lvval,lt,0)  return 

OO00S89O 

IVPsMArGS 

OOO0S90O 

IF (IVR  .GT.  SO)  GO  TO  1610 

0000590S 

ICCL=R 

0P00S91 0 

IVAL=RUD(STR(J)  , 1 0000) 

0000S920 

IAR&5 ( 1 VH) sHITPUT ( 1 AROS ( I VR)  , I VAL,  I COL ) 

OOOOS930 

IF  (NR  .E  Q.  ) GO  TO  49 

OOOOS940 

IF  (NTyPE  ,Nt,  3)  RETURN 

OOOOS9SO 

FL‘0  SUPSCBIPT  IN  I/O  LIST 

00005960 

lARGS ( 1 VR) =HITRuT { I ARGS ( I VR ) , 1 , I COL ♦ ? ) 

0000S97O 

RE  TURN 

00005980 

f^LAG 

' DO  INDEX  IN  I/O  LIST 

00005990 

49 

IARGS (IVR)sHITPuT ( IARGS( IVR)  ,2, I COL*?) 

00006000 

if(nflag  ,lt,  1)  return 

00006010 

IARGS  ( I VR)  sHiTPLiT  ( IARGS  (IVR),FL(NFLAG),  1C0L*7) 

00006020 

RETURN 

00006030 

47 

NRbR 

00006040 

Sl'HSCBlPT  DOfS  NOT  btGlN  hlTn  CONSTANT,  FOPCf  SE  APCH 

FOR  variable 

00006050 

GO  TO  11 

00006060 

CHtCK  f-OR  PwOPtR  NuPfEP  OF  SijPsCwlPTS 

000060TO 

SO  IF(  HtTA  .to,  U .OR.  R ,NF.  hb?)  GO  TO  S? 

000060BO 

MARGS=MAR6S* 1 

00006090 

LVl  AAO  * OPRAND 

00006100 

LVPF.STx  0 

000061 10 

LV  AAT  s mapGS 

00006120 

L yP£  ( 1 ) » 1 

00006130 

LVVALS  (1)  » LVl  AAT 

00006140 

LVOtST*  n 

00006150 

L V V N V 1 * 1 

00006160 

LvFoNC  * FliNC? 

000061  TO 

LVVARG«tVl  AAO 

00006180 

call  lvnsrt 

00006190 

I F (L  vv  AL  .L  T , 0 ) C*»LL  LVt  > I T (LVVAL  ) 

00006200 

!►  ILVVAL.LT.O)  RtTUnN 

00006210 

LvOtSTs  0 

00006220 

LVl  AA(i  s J-l 

00006230 

LVTyPfe  1 1 ) s 1 

00006240 

L VV AL  S ( 1 ) = LVl  AAU 

00006250 

LVOFST*  0 

00006260 

LVVNVL  s 1 

00006270 

LvF»*NC  s FUNC3 

00006280 

LVVARGslvI  AAO 

00006290 

call  Lvnsrt 

00006300 

IF  (LVVAL.lt. n>  call  LVfc X I T (LVVAL ) 

00006310 

IF  (LVVAL  .LT  .0)  RETURN 

00006320 

LVOeST*  0 

00006330 

LVl  AAv  » NOEPTh 

00006340 

LVTyPF(I)  » 1 

00006350 

LVVALS { 1 ) = LVl  AAV 

00006360 

LVDESTx  0 

00006370 

LVVNVL  * 1 

00006380 

LvFunC  = Lfc  VtL 

00006390 

LWABG*lv1  AAO 

00006400 

CALL  LVNSRT 

00006410 

IF (LVVAL. IT. 0)  call  LVfcKlT(LVVAL) 

00006420 

IF  (LVVAL. LT.O)  RtTlJPN 

00006430 

IF(RAP&s  ,gT.  SO)  GO  TO  1610 

00006435 

icol*r 

00006440 

I V al*mop (STR ( J- 1 ) # 1 nooo ) 

00006450 

I APGS (RAmGS) *hITPUT ( I APGS(MARGS) f I VAL t ICOL) 

00006460 

IF (NOPAP  .Lt . 0)  GO  TO  52 

00006470 

LVVPOS  « 1 

00006460 

LVVTyP  « 3 

00006490 

LVVPOS*-LVVPOS 

00006SOO 

LVFiiNC*  ACTION 

00006510 

LWAPGc  OPRAND 

00006S20 

CALL  LVF1N0<LV?  At.LV?  AF.LV?  AG,LV2 

AH) 

00006530 

LVl  AAO  « OPRAND 

00006540 

IF  (LVVAL. Nt. -11  LVl  AAO  = LVVAL 

00006550 

LVVTR  » LVVAL 

00006560 

LVVAL  * -100 

00006570 

IF  (LVVTP.EO.-l ) GO  TO  52 

00006560 

^-FUNC  = LVl  AAO 

I (MflRGS) =Ml TPUT ( I AR6S (MAR6S) UNC . I CUL*3) 

I AkfcS  (maRGS  » =bl  T^^UT  ( I ARGS  (MAHG<;)  *NARGS  t ICUL  ♦V) 

C IF  NO  STRING  LtFT,  PtTURN  IF  CONSTANT* VAcq  ARLt  OR  I/O  LIST 
S?  1F{STJ  .UT,  0 .A^l),  (btTA  ,EO,  0 .OR,  htTA  .tO,  4 
$ .OR,  NTYPE  ,FO,  3))  Rfc TURN 
IF(hf.TA  ,GT,  NARPAy)  CjO  TO  55 
EPPFUGs.TRuE . 

call  ERkOP ( 81 , J, IDM?, IUM3, IDM4 ) 


CALL  LVF  IND  (LVINDK  *LVlNDX*LVlNOx  ,LVlND)i  ) 

LVl  AAL  * R 

IF  (LVVAL  ,NF ,-1 ) LVl  AAL  = LVVAL 

P 


C«»«»  LVl  AAL  " P 

W = LVl  AAL 
LVVTP  s LVVAL 
LVVAL  = -100 

IF  aVVTP,Nt,-l)  GO  TO  5b 

SB  1F(NTyPE  .EQ,  3 .and.  NAPPAy  .to,  0)  GO  TO  57 

IF(HETA  ,GE.  1 .AND,  h£TA  ,Lt.  3 ,ANO,  NOPAR  ,EQ.  0> 

% call  ERP0R(8?,J*I0m?,IDm3,IDm4) 

57  NAPRAYs-l 
GO  TO  II 

56  IF  (NTYPE  .EO.  3 .AND,  NAPPAy  .FO.  0)  RETURN 

IF(STJ  ,EO,  RPAP  .And.  NAPPAY  ,LT,  BETA  ,ANU.  J .tO.  PAXJ) 
% CALL  EPR0P(8?,J.I0m?*IDm3,IUM4) 

IF(STJ  ,EO,  PPAP)  NAPPAYs-1 
RETURN 


OOOObSRO 
npOObbOO 
nroobb  1 0 
0000bb?0 
00006R30 
OPOObbAO 
OPOObbSO 
OOOObbbO 
00006«->70 


55  IF (P  ,EO.  45?) 

^,APPAY  = 0 

00006680 

IF(P  ,EO,  318) 

NARRAY= 1 

00006690 

I F ( P , t Q . 60) 

NAPPAYa? 

00006700 

IF(P  ,EQ.  103) 

narpa Y*3 

00006710 

IF (STJ  ,LT,  0) 

GU  TO  58 

000067?0 

lwtyp  = 3 

00006730 

LVVPOS  = 1 

00006740 

LVINUX  = n 

O0006750 

LvFliNCa 

STJ 

00006760 

LVVARGa 

P 

00006770 

00006780 

OOOObTPO 

onoobBOO 

OOOObBlO 

OOOObB?0 

00006830 

00006840 

00006850 

00006860 

00006870 

0O0068H0 

000068VO 

O0006P00 

00006910 

000069PO 

00006930 

00006940 

00006950 


reset  type  of  statement  in  anticipation  of  search  for  boolean  PPlMAQY0n006960 


60  continue 

notflg*. false, 

IF(STR(J-l)  .EO.  -17)  NOTFLGs.TRuE. 
TYPE1»-1 

C STRIN6*hOL ,J (-string, string  mmtyPEI"”) 
c***»  STRING  ♦ MOL 

LVVPOS  » J 

LVVTYP  s 3 
LVFuNC*  hOL 

LVVARGs  string 

call  LVFINO (LV?AI .LV?AJ,LV?AK .LV?AL ) 
LVl  AAL  * STRING 

IF  (LVVAL. NE,-1)  LVl  AAL  * LVVAL 
LVl  AAO  a LVl  AAL 

C«*#«  LVl  AAO  - STRING 

LVVAO*-l 
LVVTYPa-l 


00006970 
00006980 
00006990 
00007000 
00007010 
000070?0 
00007030 
00007040 
00007050 
00007060 
00007070 
00007080 
00007090 
000071 00 
OO0071 10 
000071PO 
00007130 


LVVPOS«l 

LvFUNC*  STBIMG 
LVVARG*tVl  AAO 
call  LVOLtT 
LVI  AAO 
€••••  LVl  AAO 
LVOLST*  0 
LVl  AAF 

LVTYPeU)  ■ 

LVVALSU)  * 

LVOeST*  0 
LVVNVL  * 1 

LVPUNC  s 
LVVARGsLVI 

call  lvnsrt 

IF  1LVVAL.LT  ,0)  CALL  LVE X 1 T 1 L V V AL > 

IF  (Lvval.lt.O)  return 
IF(STJ  ,NE,  OPPAND)  GO  TO  65 
AL PH A sGF  TTyP (5TP ( J M 
HETAaGETOlH (STP ( J) ) 


B LVl  AAL 
STRING 

r TyPEI 
I 

LVl  AAF 


string 

AAO 


c 

c**** 


IF (ALPHA 
65  CONTINUE 

R*STJ/11  “R 
R 

lvvtyp  = 3 
LVVPOS  s I 
LVINDX  = 0 
LVFUNCs 
L VVAPGs 


NE  « 4 ) GO  TO  11 


STJ 

H 


STJ 


AAL  ® LVVAL 


1 1 


call  L VF IND (LV INOX *LV INDX.lv  I NOX.LVINOX) 
LVl  AAL  = P 

IF  (LVVAL. NE. -1 ) LVl 
LVVTR  s LVVAL 
LVVAL  a -100 
IF  (LVVTR. EQ. -1 ) GO  TO 
C***»  LVl  AAL  *• 

R » LVl 

RETURN 

C IF  boolean  primary  is  an  arethmetic  compare 
70  IF(STJ  .LT,  P)  return 

IF  (TYPEl  ,EO.  4)  GO  TO  75 
R*STJ  *‘R/l  1 

R * STJ 


AAL 


C 

C**** 


LVVTYP  5 
LVVPOS  » 
LViNDx  = 
lvfunc* 

LVVAR0= 


STJ 
R 

call  lve inu (LvInux .lvinox.lvindx .lvindxi 

LVl  AAL  * R 

IF  (LVVAL. NE.-n  LVl  AAL  » LVVAL 
C*«**  LV\  AAL  '*  R 

R * LVl  AAL 

LVvTP  X LVVAL 
LVVAL  a -100 


00007140 
00007150 
00007160 
000071 70 
00007180 
00007190 
00007?00 
00007210 
00007220 
00007P30 
000072*0 
00007250 
00007260 
00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
00007360 
00007370 
00007380 
00007390 
00007400 
00007410 
00007420 
00007430 
00007440 
00007450 
00007460 
00007470 
00007400 
00007490 
00007500 
00007510 

CONTINUE  PARSING  PRIMARY  000075?0 

00007530 
00007540 
00007550 
0(^007560 
00007570 
00007580 
00007590 
O0007600 
00007610 
00007620 
00007630 
00007640 
00007650 
00007660 
no 007670 
00007680 


11 


IF  (LVVTR.EQ,*!)  00 

TO 

1 1 

OOOOTftRO 

C WfLATIONAL  DPEBAroK  FOuMl 

(^0007700 

IF(NOkP  ,E0.  0)  WfcTUHN 

00007710 

LVVPOS=-LVVPOS 

00007720 

LVVTyP*  3 

00007730 

LVVPOS=  1 

00007740 

LVUFST=  2 

00007750 

LVl  AAO  = 1 

00007780 

LVTvPt ( 1 ) = 1 

00007770 

UWALS(l)  s LVl  AAO 

00007780 

LVDESTs  2 

00007790 

LVVNVL  « 1 

00007800 

LVFUNC  « FUNCl 

O0007B10 

LVVAPGs  OPRANl) 

00007820 

call  lvnspt 

00007830 

IF  (LVVAL.LT.O)  call 

LVtXiT  (LWAL) 

00007840 

IF  (LVVAL.LT . n ) BETKBN 

00007R50 

C IF 

HOOlCAN  VAPIAHLt  OR 

CONSTANT 

• SET  state  to  stop 

00007860 

75 

P=STOP 

00007870 

JSTACKsJSTACK*! 

00007880 

STACK(JSTACK,1)*P 

00007890 

STACK (JSTACKt?)«0 

00007900 

STACK(JSTACK«3)sJ 

001 07910 

STACK (JSTACK,4)sO 

OOOv.  '*920 

00  TO  11 

00007930 

C COMPARE  TYPES  ON  BOTH  SIUES 

OF 

RELATIONAL  EXPRESSION 

00007940 

MO 

IF{TVPE1  .to.  0 .OH. 

TYPtl  . 

to.  2 .OR,  TYPEl  ,E0,  3)  GO  TO  85 

('0007950 

ERRFLO=,T«uE . 

00007960 

CALL  ERR0H<fl3fJ) 

00007970 

type  1 s-1 

00007980 

C 

STRINO^HOL.J (-STRING 

iSTRiNG 

•"•TYPtl'Hi) 

00007990 

c***« 

STRING 

♦ 

HOL 

00008000 

LWPOS  s J 

00008010 

LVVTYP  a 3 

O00O8O20 

LVFUNCa  HOL 

00008030 

LVVARGs  STRING 

00008040 

call  LVFIN0(LV?AM,lV2AN, 

LV2A0.LV2AP) 

000080SO 

LVl  AAL  * STRING 

00008060 

IF  (LVVAL.NE.-1)  LVl 

AAL 

* lvval 

00008070 

LVl  AAO  X LVl 

AAL 

00008080 

c**** 

LVl  AAO 

- 

STRING 

00008090 

LVVA0«-1 

0 0 0 0 0 0 

LVVTYPs-1 

000081 1 0 

LVVP0S=l 

OOnOR 1 20 

LVFUNCs  string 

00008130 

LVVAR(ixLvi  AAO 

00008140 

CALL  LVOLtT 

oopOHiso 

LVl  AAO  X LVl 

AAL 

00008160 

IVI  AAO  STRING 

M M 

000081 70 

LVOtSTx  0 

000081 80 

LVl  AAP  X TYPtl 

0O008190 

LVTyPEn)  X 1 

00008200 

LVVALS  ( 1 ) X LVl  AAP 

00008210 

LvOtSTx  0 

00008220 

LVVNVL  « 1 

0O00H230 

r- 


LV»^UMC  s STPING 

LVVAP6=LV1  AAO 

call  lvnspt 

2F<LVVAL,LT.0)  call  LVf^ITavvAL> 

IF  (LVVAL.LT.O)  PtTUPN 

TYPtpsTYPfcl 

60  TO  11 

C hOOLtAN  PWIMAPY  PtC06Nl7t0-StT  TyPL  TO  ROOlLAN  AnO 
PO  IF(TYPtl  .to.  TYPt?  .UP.  TYPtl*TYPt2  .£0.  ? .OH 
♦ TYPt?  .LT.  0)  60  TO  PS 
M*TYPtl*l 
N?=TYPt?*l 

call  t-PPOH(7  7,TYPfc  (1  *N1  ) ,TYPt  (2.N1  ) #TYPe  ( I tN?)  • 
tPPFLGs. TPUt . 

PS  TYPt  1*4 
TYPt2*-l 

IF  (STJ  ,LT,  0)  Pf.TUWN 

C STPI^G^hOL  , J f-STPlNU,STP  ING  T YPt  I ) 

C^•^^  STPING  ♦ HOL 

LVVPOS  * J 

LVVTYP  » 3 

LvFuNC*  MOL 

LVVAPGa  string 

call  LVFINU (LV?AQ,LV?AP,LV?AS.LV?AT) 

LVl  AAL  « STHING 

IF  (LVVAL  ,NE ,-l ) Lvl  AAL  * LVVAL 

LVl  AAO  * LVl  AAL 

LVl  AAO  - STPInG 

L VVAU»-1 

LVVTYPs-l 

LVVPOS*! 

LVFUNC*  STPING 
LVVAPG*LV!  AAO 

call  LVOLtT 

LVl  AAO  * LVl  AAL 

LVl  AAO  STRING 

LVOeST*  0 
LVl  AAQ  * TyPEI 

lvtypf ( n » 1 

LVVALSm  * LVl  AAO 

LVDEST*  0 

LVVNVL  * 1 

LvFunC  » STRING 

LVVAPG*LV1  AAO 

CALL  LVNSPT 

IF  (LVVAL.LT.ft)  call  L VF X I T ( L V VAL ) 

IF  (LVVAL.LT.O)  RETURN 
GO  TO  11 

C PARSE  REACHED  BLIND  ALLtY-MUST  BACK  oP  ANO  REMOVE 
9P9  JM*STACK (JSTACK,3) 

K«JM 

00  996  KK*JM,J 

C STPtN6*M0L.K/995 ♦STRING,  1/996  ♦♦TyPEI 

STRING  ♦ MOL 

LVVPOS  * K 


TYPt (?,N?)  ) 


LVl  AAL 
STRING 


STRING 

AAO 


ftftft0fl?40 

ft000R?50 

0O00BP60 

Oft00A?7O 

OOOOH2BO 

00OftR?90 

OO00R300 

coNTiNuf  parse  noooRiio 

. 0<'0083?0 

OftftOH330 
00008340 
0000«^Sft 

TYPt (?,N?) ) 00008360 

00008370 
OOOCR3RO 
000083P0 
00008400 
00008410 
000084PO 
00008430 
00008440 
000084S0 
00008460 
00008470 
00008480 
000084PO 
O0008S0O 
00008S1 0 
00008S20 
00008S30 
00008S40 
00008SSO 
00008S60 
00008S70 
00008580 
0O008SP0 
00008600 
00008610 
00008620 
00008630 
00008640 
00008650 
00008660 
00008670 
00008680 
00008690 
00008700 
00008710 

PARENTHESES  CRE ATED00008720 
00008730 
00008740 
00008750 
00008760 
00008770 
00008780 


LVVTyP  = 3 

LVFUNC*  hOL 

lvvapcj*  string 

call  LvF  INU  (LV?MUiLV?AV*LV?Ak»fLV?AX) 
LVl  AAL  » STRING 

IF  (LVVAL.Nt.-l)  LVl  AAL  » LVVAL 
LWTR  « LVVAL 
LVVAL  » -100 

IF  (LVVTR.tO.-n  GO  TO  995 

C«#**  LVl  AAL  ♦ STRING 

LVVPOS  a 1 

LVVTYP  a 3 
LVFUNCe  STRING 

LVVAPG*  LVl  AAL 

call  LVFIND (LV?AYtLV?A7,LV?A0,LV?Al ) 

LVl  AAO  a LVl  AAL 

l^  (LVVAL. Nt,-n  LVl  AAO  a LVVAL 

LVVTR  » LVVAL 

LVVAL  a -100 

IF  (LVVTP.kQ.-l ) GO  TO  996 

LVl  AAO  ••  TYPEl 

TYPEl  « LVl  AAO 
GO  TO  995 
996  K«K-1 

995  CONTINUt 

DO  99m  I=JM,J 

C STRING*hOL.I ( -L t F T • -R I GhT ) 

C***#  STRING  ♦ HOL 

LVVPOS  a 1 

LVVTYP  a 3 
LVFuNC*  HOL 

LVVAPGa  STRING 

CALL  LVFINO  (LV?A?,LV?A3,lV?A4,LV2A5) 
LVl  AAO  a STRING 

IF  (LVVAL.NE.-1 ) LVl  AAO  a LVVAL 
LVl  AAL  a LVl  AAO 

LVl  AAL  - LkFT 

LVVAOa-l 

LVVTYPa-1 

LVVPOSal 

LVFUNC*  LEFT 

LVVAPGaLVl  AAL 

call  lvolet 

LVl  AAL  a LVl  AAO 

LVl  AAL  - right 

LVVADa-1 

lvvtyp»-i 

LVVPOSal 

LVFUNCa  RIGHT 

LVVARGaLVl  AAL 

CALL  LVOLET 

996  continue 
960  continue 

LVVPOS  • I 

LVVTYP  • 3 


0000A790 

00006600 

00006610 

0n0066?0 

00006630 
00006840 
00006650 
OO00KA6O 
00006670 
00006680 
0000M690 
00006900 
00006910 
00006920 
00006930 
00006940 
00006950 
00006960 
00006970 
00006980 
00006990 
00009000 
00009010 
00009020 
00009030 
00009040 
00009050 
00009060 
00009070 
00009060 
00009090 
00009100 
000091 1 0 
00009120 
000091 30 
00009140 
00009150 
00009160 
00009170 
00009160 
00009190 
00009200 
00009210 
00009220 
00009230 
00009240 
00009250 
00009260 
00009270 
00009260 
00009290 
00009300 
00009310 
00009320 
00009330 


i 


LVVPOSs-LVVPOS 
LVFUNCs  FUNC3 

LVVAPGs  OPPANO 

CALL  LVFIN0(LV?  A6*LV?  A7fLV?  A8,LV?  A9) 

LV)  AAy  s OPRAND 

IF  (LVVAL.NF.,-1)  LVl  AAY  * LVVAL 
JN  3 LVl  AAY 

IF(JN  ,LT,  JM)  go  to  985 
LVl  AAY  » OPRAND 

LVVPOS  = I 

LVVTyP  * 3 

L VVPOS  = -LVVPOS 
LVKUNCs  FUNC2 

LVVAPGs  LVl  AAY 

LVVADs-i 

CALL  LVOLFT 
LVVPOS  = 1 

LVVTYP  = 3 

LVVPOS=-LVVPOS 
LVFUNCa  FUNC3 

LVVARGs  LVl  AAY 
LVVAD=-1 
CALL  LVOLtT 
LVVPOS  = 1 

LVVTyP  = 3 

LVVPOSs-LWPOS 
LvFUNCs  LtVtL 

LVVAPGs  LVl  AAy 

LVVAUs-l 

call  LVOLFT 
GO  TO  9G0 
985  CONTINUE 

LVVPOS  = 1 

LVVTYP  8 3 

LVVPOS=-LVVPOS 
LVFUNCs  FtjNC? 

LVVAPGs  OPPANU 

CALL  LVFIND(LV?  HA,LV?  BB,LV2  HCfLV2  BO) 

LVl  AAY  * OPRAND 

IF  (LWAL*Nt.-n  LVl  AAY  * LVVAL 
fc*AkGS  3 LVl  AAy 

LVVPOS  = 1 

LVVTyP  = 3 

LVVPOSs-LVVPOS 
LVFUNCs  LFVtL 

LVVARGe  OPPAND 

CALL  LVFIN0(LV?  Bt,LV?  HF,LV?  BG,LV?  Hh) 

LVl  AAY  s OPRAND 

IF  (LVVAL. NF.-n  LVl  AAy  * LVVAL 
NDLPTh  s LVl  AAy 

Rt  TURN 

C RtCOGM7tU  FiiNCTlCN-PHtPARt  TO  SET  TYPE  OF  ARGUMENTS  FOP  THE 
C FUNCTION  IN  THIS  ST«T 

mon  CONTlNUF 


000093AO 
00009350 
00009360 
00009370 
00009380 
000U9390 
00009400 
00009410 
00009420 
00009430 
00009440 
00009450 
00009460 
00009470 
00009480 
00009490 
00009SOO 
00009510 
00009520 
00009530 
00009540 
000095SO 
00009560 
00009570 
00009S80 
00009990 
00009600 
000096  1 0 
00009620 
00009630 
00009640 
00009650 
00009660 
00009670 
0O0096H0 
00009990 
00009700 
00009710 
00009720 
00009730 
00009740 
000097SO 
00009760 
00009770 
0O0097R0 
00009790 
O0009A00 
00009A10 
00009A20 
00009A30 
00009A40 
00009850 
••NUEPTM0O009H60 
00009P70 
00009880 


i 


I 


NOePTH«NOfePTM*l 
NUtPsNOiP* I 
NAPGSsO 

c p*sTj/n 

c***«  P ♦ STJ 

LVVTYP  » 3 
LVVPOS  s 1 
LVINUX  s 0 
LVFUNCs  STJ 

LVVAWG*  P 

call  LVF INO (LV INOX,LVlNOx ,LVIN0X .LVINOX ) 

LVl  AAO  s W 

IF  (LVVAL.Nt,-!)  LVl  AAO  = LVVAL 
LVVTP  = LVVAL 
LWAL  = -100 

IF  (LVVTB,tO,-l)  bO  TO  11 

LVl  AAO  »*  P 

R -5  LVl  AAO 

NAR6S=1 

C OPR  AM)  (OPR  AND  «•.  y yP£  1 "••  • STR I NG«”N  ARbS*"* , AC  T I OK  •"•NDkPThM«) 

LVl  AAO  s OPRANU 

C***«  LVl  AAO  UPRAND 

LVUfcSTs  0 
LVl  AAL  s TYPfcl 
LVTYPt(l)  X 1 
LVVALS ( 1)  » LVl  AAL 

LVOFST*  0 
LVVNVL  * 1 

LvFhNC  s 
LVVAPbsLVl 

call  LVNSWT 

IF  (LVVAL, LT.O) 

IF  (LVVAL. LT.n» 

C«***  LVl  AAO 
LVDtST*  0 
LVl  AAR  3 NARbS 

LVTyPF(I)  * 1 

LVVALS(l)  X LVl 
LVUtST*  0 
LVVNVL  » 1 

LVFUNC  X 
LVVARbxLV 1 

call  LVNSRT 

IF  (LVVAL. LT.O)  call  LVt X I T (LVVAL  ) 

IF  (LVVAL, LT.O)  RtTURN 
€••••  LVl  AAO  ACTION  •••• 

LVDtSTs  0 
LVl  AAS  * NLtPTM 
LVTYPF(I)  s 1 
LVVALS(l)  X LVl  AAS 


OPRANU 

AAO 


call  LVFxIT(LVVAL) 
RtTURN 

STRING  "* 


AAR 


string 

AAO 


LVCtST*  0 
LVVNVL  X 1 
LVFUNC  * 
LVVARbxLVl 
CALL  LVNSRT 


ACTION 

AAO 


0000R890 

00009900 

00009910 

000099?0 

00009930 

00009940 

000099S0 

00009960 

00009970 

00009960 

00009990 

nooioooo 

OODlOOlO 
OOOIOOPO 
00010030 
00010040 
00010050 
00010060 
00010070 
00010080 
00010090 
00010100 
000101 10 
OOOlOlPO 
000101 30 
00010140 
00010150 
00010160 
OOOlOl 70 
00010180 
00010190 
OOOIOPOO 
OOOIOPIO 
00010??0 
O0O10P30 
000 1 0P40 
0001 OPPO 
0001 0?60 

000  1 OP70 
0001 0?80 
0001 0?90 
00010300 
00010310 
0001O3P0 
00010330 
00010340 

000 1 0350 
000 1 03N0 
00010370 
00010380 
00010390 
00010400 
00010410 
0001 04?o 
00010430 


1 


IF  (LVVAL.LT.n)  call  L Vfi  * I T (L  VV  AL  ) 

IF  (LVVAL.LT.O)  peturn 
C OPRANO  FuNCl 

OPRANO  FUNCl  '••• 

LVOEST*  0 

LVlAAOsQ 

LVTVPe<l)  = 1 

LVVALS ( 1 ) * LVl  AAO 

LVOt.ST=  0 

LVVNVL  * 1 

LVFunC  * FiiNCl 

LVVARb=  OPRANO 

call  LVNSRT 

IF  (LVVAL.LT.n)  call  LVfX I T (LVVAL ) 

IF  (LVVAL  .LT . n ) return 
TYPE 1*-1 

C NOPARsNOPAR* 1 

NORARsNOPAR* 1 
RETURN 

c keep  track  of  the  NUMtitR  ano  types  cf  arguhents  in  function  calls 

C MUST  USE  STACK  FOP  POSSIBLE  RECURSIVE  FUNCTION  USE 

uoo  continue 

lVVTyP  » 3 
LVVPOS  * 1 
LVINUX  s 0 

lvfunc*  stj 

LVVARGs  R 

CALL  L VF INO ( LV INUX.LV INOX .LVlNOX.LV INOX) 
lviaatsr 

IF(LVVAL  .NE.  -n  LV1AAT=LVVAL 
LVVTP  * LVVAL 
LWAL  * -100 

IF  (LVVTP. E(3. -1  ) GO  TO  11 

R*LV1AAT 

LVlAATsOPRAND 

LVVPOS  * 1 

LVVTYP  * 3 

LVVPOS«-LVVPOS 

LVFUNC«  STRING 

LVVAWG*  LVl  AAT 

CALL  LVF lNO(LV?hl,LV2BJ*LV?BK,LV?hU 

LVl  AAU  » LVl  AAT 

IF  (LVVAL. NE.-n  LVl  AAU  « LVVAL 

LVVTP  « LVVAL 

LVVAL  « -100 

IF  (LVVTP, EO.-n  GO  TO  1103 

C^^^•  LVl  AAU  ••  NAR(>S 

NAPGS  • LVl  AAU 
LVl  AAT  ♦ STRING 

LVVPOS  • 1 

LVVTYP  • 3 

LVVPOS»-LVVPOS 
LVFUNC*  STRING 

LVVARG*  LVl  AAT 


000104^0 

000104SO 

oooin4NO 

00010470 

00010480 

non  1 oaRo 
oooiosoo 

OOOIOSIO 
00010S20 
0001 0S30 
000  1 0S40 

000  1 ne,50 
0001 OSNO 
0001 OS70 

000 1 OSAO 

opoinsvo 

000  1 ONOO 
000  1 OM  0 
00010820 
00010830 
00010840 
0001 08S0 
0001 PN80 
0001 0870 
00010880 
00010890 
00010700 
OOOl ft  7 1 0 
0001 0720 
00010730 
00010740 
000107SO 
00010780 
00010770 
0001 0780 
00010790 
0001 0800 
0001 081 0 
00010820 
00010830 
00010840 
000108SO 
00010880 
00010870 
00010880 
0001 0890 
0001 0900 
00010910 
00010920 
00010930 
00010940 
OO01O9SO 
0001 0980 
00010970 
00010980 


CALL  LVOLtT 

C«*««  LVl  AAT  ♦ ACTION 

LVVPOS  « 1 

LVVTYP  • 3 

L VVPOS»-LVVPOS 
lvhpnc*  action 
LVVAHb«  L«1  AAT 

CALL  LVF InO(LV?HH,LV?«N,LV?HO,LV?HP) 
LVl  AAU  • LVl  AAT 

IF  (LVVAL.NE .-1 ) LVl  AAU  • LVVAL 
HFliNC*LV1AAU 


LVVPOS 

LVVTTP 

LVVPOS* 

LVFUNC- 

LVVARO* 


1 


• 3 

■ LVVPOS 

FUNCl 

OPRANO 


CALL  LVFINOILV?  HO.LV?  BR.LV? 

LVl  AA3  • OPRANO 

IF  (LVVAL. Nt.-l)  LVl  AA3  ■ LVVAL 
lEXP  • LVl  AA3 

1103  CONTINUE 
C STORE  argument  TyPES 
IF(NOEPTH  ,6T.  SI 
IF(N0EPTM  .GT.  51 
IF(NAR6S  .LE.  N3) 

errflg*.true. 

CALL  ERROR i8*.NOEPTH.IOM7.IOM3, IONA) 
GO  TO  11 
110*  CONTINUE 

HM. (5»NARGS) /3 

ITEMP«NARGS-3» (MM-2) 


HS.LV2 


call  error (85, lOMl , IDM2, I0M3, lOMA) 
GO  TO  1130 
GO  TO  IlOA 


BT) 


ICOL'RaITEHP-n 

NARY(MFUNC  ,MM) «BI TPUT (NARY (MFUNC  . MM| , T YPE 1 « 1 , I COL ) 
IF(STR(J-?|  ,NE.  -6  .and.  STR(J-2I  .NE.  -*)  GO  TO  1130 
N0IM«GETD1M(STR(J-1) I 
IF(N0IM  ,6E.  A)  GO  TO  1130 
C STORE  dimensionality  OF  ARGUMENTS 

NARY(MFuNC  .MM) •BITPUT (NARY (MFUNC  .HM) ,N01M, ICOL*3) 
1130  CONTINUE 

NARY (MFUNC. Mm ) »B1TPUT (NARY (MFUNC . MM) . IE«P. IC0L*6) 

IF(STJ  .EQ.  COMMA)  GO  TO  1105 

NARY (MFUNC . 1 ) «NARGS 

LVl  AA3  a OPRANO 

LVVPOS  a 1 

LVVTYP  a 3 

LVVPOSa-LVVPOS 

LVFUNCa  ACTION 

LVVARGa  LVl  AA3 

LVVAOa-1 

CALL  LVDLET 

LVVPOS  a 1 

LVVTYP  a 3 

LVVPOSa-LVVPOS 

LVFUNCa  OPRANO 


000 

0990 

000 

1000 

000 

1010 

000 

10?0 

000 

1030 

000 

1040 

000 

lOSO 

000 

1060 

000 

1070 

000 

1 o»o 

000 

1 090 

000 

! too 

000 

1110 

ooo 

n?o 

000 

1130 

000 

1 140 

000 

1150 

000 

1 1 60 

000 

1170 

000 

1 190 

000 

1 1'^O 

000 

1?00 

000 

1?10 

000 

1??0 

000 

1?30 

000 

1?40 

000 

1?50 

000 

l?60 

000 

1?70 

000 

i?eo 

0001 

l?90 

000 

1300 

000 

nio 

000 

13?0 

000 

1330 

000 

1 340 

000 

1350 

000 

1360 

000 

1370 

000 

13B0 

000 

1390 

000 

1400 

000 

1410 

000 

14?0 

000 

1430 

000 

1440 

000 

1450 

000 

1460 

000 

1470 

000 

1480 

000 

1490 

000 

1500 

000 

1510 

000 

1520 

000 

1530 

I 18 


LVVANGa  LVl  AA3 

CALL  LVKIN0(LV?  BU*LV?  HV.LV?  Bw,LV? 

LVl  AA4  s LVl  AA3 

IF  (LVVAL.NF.-1)  LVl  AA«  > LVVAL 

LWTH  * LVVAL 

LVVAL  * -100 

IF  (LWTR.eo.-l  ) GO  TO  H3S 

TYPtl  » LVl  AA4 

LVl  AA3  * OPRANO 

LVVPOS  * 1 

LVVTYP  s 3 
LVVPOSs-LVVPOS 
LVFuNCa  FUNCI 

LWARGs  LVl  AA3 

LVVADa-l 
CALL  LVULtT 
LVVPOS  a 1 

LVVTYP  a 3 
LVVPOSa-LVVPOS 
LVFuNCa  OPRANO 

LVVARGa  LVl  AA3 
LVVAD=-1 
CALL  LVDLtT 
I 13S  NOPAR*NOPAR-l 
NOE  PsNOEP-1 
RtTUPN 

nos  TYPei=-i 

C STRING*H0L.J  (-STRING •STRING  ••••TYPE  1 •*«• ) 

€••••  STRING  ♦ MOL 

LVVPOS  a j 

LVVTYP*3 

LVFuNCa  HOL 

LVVARGa  STRINO 

CALL  LVFINO(LV?HY,LV?tt?fLV?HO#LV?Hl) 

LVl  AAT  a STRING 

IF  (LVVAL, NE, -1 ) LVl  AAT  « LVVAL 
LVl  AAU  a LVl  AAT 

C**«*  LVl  AAU  - STRING 

LVVADa-l 

LVVTYPa-l 

LWPOSal 

LVFliNCa  STRING 
LVVAROaLVl  AAU 

call  LVULET 

LVl  AAU  * LVl  AAT 

€••••  LVl  AAU  STRING  •••• 

LVDESTa  0 

LVl  AAV  a TYPtl 

LVTYPE  ( 1 ) a 1 

LVVALS  ( 1 ) a LVl  AAV 

IVOESTr  0 

LVVNVL  a 1 

LVFuNC  a STUNG 

LVVARGaLVl  AAU 

call  lvnsrt 


I 


00011S40 

B)()  nooiisso 

0001 1S60 
0001 ISTO 
0001 1S80 
0001 1S90 
00011600 
OOOllMO 
000116P0 
00011630 
0001 1640 
00011650 
0001 1660 
0001 1670 
00011680 
00011690 
00011700 
0001 1710 
0001 1720 
0001 1 730 
00011740 
00011 7S0 
00011760 
00011770 
00011780 
00011790 
0001 1800 
0001 1810 
0001 1«20 
0001 1830 
0001 1840 
0001 1850 
00011860 
0001 1 H70 
0001 1880 
0001 1890 
0001 1900 
0001 1910 
0001 1920 
0001 1930 
0001 1940 
0001 1950 
0001 1960 
0001 1970 
0001 1980 
0001 1990 
00012000 
00012010 
00012020 
00012030 
00012040 
00012050 
00012060 
00012070 
00012080 


IF  (LVVAL.LT.O)  call  LVtXlT(LVVAL) 

0001?ORO 

IF  (LVVAL.lt. 0)  RETUPN 

onolploo 

napgs*nargs* 1 

OOOlPllO 

c 

OPRAND  (STRING  ••••NARGS"*' . FlINC  1 .-1 

P001?l20 

LVl  AAT  STRINO  •••• 

PO01P130 

LVOESTs  0 

0001?! AO 

LV3  AAU  s NARGS 

OOOlPlSO 

LVTyPE(I)  s 1 

OOOIPIHO 

LVVALS ( U = LVl  AAU 

0001 ?1 70 

LVDEST*  0 

OOOIPIMO 

LVVNVL  = 1 

OOOlPlRO 

LVFuNC  = STRING 

OOOIPPOO 

L VVARGaOPRANO 

oooippio 

CALL  LVNSRT 

oooi???o 

IF  (LVVAJ.  ,LT.O)  call  LVExIT(LVVAU 

0001 ??30 

IF  (LVVAL ,LT.n>  RETURN 

0001 ??A0 

c • • • • 

FUNCI  1 

noo 1 ??so 

LVVP05=-LVVPnS 

oooi??eo 

LVVTYPs  3 

0001PP7P 

LVVPOS=  1 

0001??H0 

c***» 

LVl  AAT  FUNCl  *••• 

000  1 ??R0 

LvnesTs  ? 

ooo 1 ?30n 

LV  1AAW  = 0 

nooi?31 0 

LVTyPE(I)  = 1 

OOP  1 ?3?0 

LVVALS(l)  s LVl  AAw 

onn  1 ?330 

LVOESTs  ? 

000 1 ?3A0 

LVVNVL  = 1 

00OIP350 

LVFuNC  s FuNCl 

onoi?T60 

LVVARGs  OPRANO 

r001?370 

CALL  LVNSRT 

nnoipiHO 

IF  (LVVAL. LT.O)  CALL  L VE X I T ( L V V AL  ) 

ooni?:^po 

IF  (LVVAL. LT.O)  RETURN 

OOOIPaOO 

RETURN 

OOOlPAlO 

c SAvt  Type  of  stafpent  while  pa»^sing  exponent 

0001?4?0 

1?00 

CONT INUE 

0001 ?A30 

c 

STR  ING^MOL  , J (-STR  ING.STP  InG  «‘*TYPE  1 

onciPAAO 

c « « • • 

STRING  ♦ HOL 

OOOIPaSO 

LVVPOS  = J 

0001 P4H0 

LVVTYP  s 3 

OOOl ?a70 

LVFuNCs  HOL 

OO01P4H0 

LVVARGs  STPINU 

0001 ?4Q0 

CALL  LVF INO (LV?H?.LV?H3*LV?H® ,LV?hS» 

0001 PSOO 

LVl  AAT  = STRING 

OOOIP^IO 

IF  (LVVAL. NE. -1 J LVl  AAT  = LVVAL 

0001 

LVl  AAX  = LVl  AAT 

001'1?S30 

c**** 

LVl  AAX  - <iTRlNG 

0('0  1 ?N40 

LVVAUs- 1 

OOOIPSSO 

LWTYPs-1 

noolPSNO 

LVVPOS= 1 

0001PS70 

LVFuNCs  string 

OOO 1 PNRO 

LVVA»('SLV1  AAX 

OOOIPSRO 

call  LVI'LET 

noolPGOO 

LVl  AAX  S LVl  AAT 

OOOIP^IO 

c**»® 

LVl  AAX  STRING  *••• 

0001 ?N?P 

LVLitSTs  0 

ooo  1 ?H30 

LVl  AAY  a TYPEI 

lvtypfmi  ■ 1 

LVVALS(I)  a LVl  AAY 

LVDt<iT«  0 

LVVNVL  a I 

LVFUNC  a <^TPIN6 

LVVAf<GatVl  AAX 

CALL  LVNSRT 

IF (LVVAL.LT.O)  call  LVtXlT(LVVAL) 

IF  (LWAL.LT.O)  RfeTURN 
TyPF 1 a-1 

C P»$TJ/ll  "« 

€••••  R ♦ STJ 

LWTYP  a 3 
LVVPOS  a I 
LVlNUX  a 0 
LVFUNCa  ^TJ 

LVVARGa  M 

call  LVFXNO(LVInUX«LV1NDX,LV1nUX«LVINOX) 

LVl  AAT  a » 

IF  (LVVAL,N£.-n  LVl  AAT  ■ LVVAL 
LVVTR  ■ LVVAL 
LVVAL  • -100 

IF  (LVVTR. to. -1 ) 60  TO  11 

C«aaa  LVl  AAT  ••  R 

P a LVl  AAT 

C COF*PLeT£ 

PFTURN 

1300  CONTINue 

IF(STJ  «LT.  n»  PtTURN 

1F(STJ  .NF,  ANO  .ANO.  STJ  .NE.  OP  .AND.  STj  .Nt. 

LWTYP  a 3 

LVVPOS  ■ I 

LVINOX  a 0 

LVFU^Ca  STJ 

LVVARGa  R 

call  LVF  TND (LVlNUX«LVlNOx«LVlNDXfLVlNOX) 

LVl  AA6  a P 

IF  (LVVAL. Nt. -1 ) LVl  AA6  > LVVAL 
LVVTR  ■ LVVAL 
LVVAL  ■ -loo 

IF  (LVVTR. CO. -1)  60  TO  II 

R a LVl  AA^ 

IF(NOCP  .to.  0)  RETURN 

c logical  operator  found 

LVVP0S*-LVVP0S 

LWTYP*  3 

LVVPOS*  1 

LVOEST*  2 

LVl  AA6  * 1 

LVTYPEdl  * 1 

LVVALS(l)  * LVl  AA6 

LVDCST*  2 

LVVNVL  * I 

LVFuNC  * FuNCl 


00012NA0 

00012N50 

00012660 

00012670 

00012680 

00012690 

00012700 

00012710 

00012720 

00012730 

00012740 

00012750 

00012760 

00012770 

00012780 

00012790 

00012800 

00012A10 

00012820 

00012830 

00012840 

00012850 

00012860 

00012870 

00012880 

00012890 

00012900 

00012910 

00012920 

00012930 

NOT)  GO  TO  11  00012940 

00012950 
00012960 
00012970 
00012980 
00012990 
00013000 
00013010 
00013020 
00013030 
00013040 
00013050 
0001 3060 
00013070 
0001 3080 
00013090 
00013100 

oooniio 

00013120 
00013130 
00013140 
0001 3150 
0001  160 
000»  *»l7C 
000.3180 


LVVAMGs  OP»A^'D 

CALL  LVNSPT 

1MLVVAL.lt. 0)  call  LVt  X I T (LVVAL) 

IP  (LvvAL.LT. 0 1 Pt  Turn 
Ui  U-RN 

lAOO  CUNTINut 

t VVTYP  = 3 
LVVPOS  = 1 
LVlNDX  » 0 

lvpuncs  «;tj 

LVVAWC'S  p 

CALL  L V>“  INO  (LV  P4UX  ,LV  iNPx  f L V INUX  ,LV  I NDX  ) 
LVl  AA7  = W 

IF  (LVVAL.NE.-1)  LVl  A47  = LWAL 
LVVTR  = LWAL 
lvval  » -ion 

IP  (LVVTR. fo.-n  c>n  to  ii 

R = LVl  AA7 

C left  PARfcN  POUNIJ  IN  I/O  lint 
NfLAG  = NFLA(a*l 
FL  (NFLAO) sMARGS 
flf TURN 

ISOO  CONTINUE 

LVVTYP  = 3 
LVVPOS  = 1 
LVIND*  = 0 
LvPl»NC=  STJ 

LVVArGs  r 

CALL  LVP  iiJD(LVlM)X*LVlNDX«LVlND*«LVlNnx) 
LVl  AA7  s h 

IF  (LVVAL.NE  .-1 ) LVl  AA7  = LVVAL 

LVVTP  = LVVAL 

lvval  = -100 

IF  (LVVTR. EO.-l ) GO  TO  11 

R = LV 1 AA7 
IF(STJ  .EO.  COMMA)  RETURN 
C RIGHT  RAhEN  FOUNO  IN  I/O  LIST 

nklag=nflag-i 

Rfc  TURN 

INOO  CONTINUE 

PRINT  INOl 

INOI  format ( IX . 1 OH  action  1ft) 

TyPF1*4 

return 

IGIO  call  error (95# lOMl , IUM?, inM3. I0M4 ) 

STOP 

?5non  CONTINUE 
LV?A=0 
LVPRsO 
LV?C=0 
LV?O*0 
LV2EaO 
LV?F  »0 
LV?G*0 
LV?H»0 


0001 31 90 
0001 3200 
0001 3210 
onni 32?o 
00013230 
0001 32A0 

000  1 32S0 
0001 3260 
00013270 

0001  3280 
0001 3290 
00013300 
00013310 
00013320 
00013330 
0001 3340 
00013350 
0001  3,3ft0 
00013370 
0001 33H0 
0001 .3390 
00013400 
00013410 
00013420 
OOO 1 34  30 
pool  344.0 
0001 34S0 
0001 34ft0 

0 0 C 1 .3  4 7 0 
00013480 
0001 34V0 

0001  3SOO 
OO013S10 
00013520 
00013530 
000135AO 
00013550 
OOO  1 3560 
00013570 
00013580 
00013590 
0001 3600 
0001 3610 
00013620 
0001362? 
0001 3624 
00013630 
0001 3640 
00013650 
00013660 
0001 3670 
000  1 3680 
00013690 
0OO13TO0 
0001 3710 


LV?I=0 

0001 37?0 

LV?J=0 

0O0J3730 

LV2H=0 

00013740 

lV?L=0 

noci 3750 

LVpMsO 

0001 3760 

LV?^•=0 

OOOl 3770 

LV?O=0 

00013780 

LV?P=0 

00013790 

LV?O=0 

0001 3«00 

Lv?«=n 

00013810 

LVPS=0 

00013HP0 

LV?T=0 

OpOl 3h30 

tv?u=o 

00013M40 

LV?V=0 

0001 3h50 

LV?b=0 

0001 3860 

LV?X»0 

0001 3870 

L v?Y=n 

0001 3880 

LV?7*0 

0001 38«0 

LV?0=0 

OOO 1 3900 

LVPlsO 

Onoi 3910 

LVP?=0 

0O0139P0 

LVP3=n 

0001 3930 

LV?4=0 

(*001  3940 

LV?^=P 

0001 39S0 

LV?6=0 

0001 3960 

LV?7=P 

0001 3970 

LV?^-n 

0001 3960 

LV?'^  = 0 

0001 3990 

LVPAAsft 

00014000 

LV?Ar=0 

0 0 0 1 4 n 1 (• 

1 V?AC=0 

000140PO 

LV?AD=0 

00014030 

LVpAt  =n 

0 0 0 1 4 0 0 

LV?AF=0 

00014O5U 

LVPAOsO 

0 0 0 1 4 0 6 (» 

LV?am=o 

00014070 

L VPA I rn 

00C14080 

LvpAjsn 

00014090 

LVPA^=n 

00014100 

LVpAl *0 

000141 10 

LvPA''  =n 

000 14 1 ?n 

LVPAKsn 

00014130 

LVr'A('Sp 

0001 41 40 

LVPAFsQ 

n0Dl4l50 

L V P A f.  = 0 

U0014160 

LVPAPsn 

0001 4 1 70 

LVpAS=0 

0 0 f*  1 4 1 H 0 

tVpATsf. 

00014190 

L VpAi  sC 

0 0 0 1 4 ? 0 0 

LVp»V*l' 

000 1 4?1 0 

1 VPAf  =0 

OOO 1 4??0 

LVPAJIS'J 

0 0 0 1 4 ? 3 0 

LVPAYsn 

onn 1 4?40 

L v?a7sO 

00014^50 

L VPmOsO 

OOOl4?hO 

14  1 


LV?A 1=0 

0001A?70 

LV?A?=0 

OOOl A?80 

LV2A3=0 

000l4?<y0 

LV  ?AA  = 0 

00014300 

lv?as=o 

00014310 

LV?Af«  = 0 

00014320 

LV2A7=0 

00014330 

LV?AH=0 

00014340 

LVPA^JsO 

00014350 

LV?bA=0 

000l43ft0 

LVpHPsO 

00014370 

LV?bC=0 

0001 4 3M0 

LV?PO=0 

00014390 

LV?Pfc=0 

0001 4400 

LV?fcf^  = 0 

C0014410 

LV?hCi=0 

0001 4420 

LV?P^=0 

00014430 

tV?hI=0 

00014440 

LV?HJ=0 

00014450 

LVPP*^  =0 

00014460 

LV?HL»0 

00014470 

LV<'H^‘  = 0 

00014480 

LV?H^  =0 

00014490 

Lv?»<o=n 

00014500 

Lv?i-P»0 

00014510 

LV?HO*0 

00014520 

00014530 

L V?H«.sO 

0001 4540 

Lv?hT*0 

0001 4550 

Lv?e>  *0 

OO014560 

V <»P  V s 0 

00014570 

L V?H»  =0 

00014580 

L V 1 sO 

00014590 

Lv?«v*0 

00014500 

LV?h7=0 

00014610 

LV?Hi=n 

00014620 

LV?h?»0 

00014630 

LV?r'3=0 

00014640 

LVpe^jsO 

0001 4650 

L V?^**>  = 0 

onoi466p 

GO  TO  ?^>001 

00014670 

ENO 

000 1 46M0 

& 


SUHRfU«T  INE  Sk*PdP 

CUK*hOn  A(l3?h),U(b00)*IUTMi.  (U«500)*IMTIU(3),LAST1U(3),  ISRCm  ( 3)  • 

* NxTIO(?)  •JRTPtN.M,JTVP,LSTA^«T•^^?^IFNC^^*LOblD*IOTYR♦^IU• 

• LOCtLTVP . I TYM , loLKUT  fMODt • ItPR* lOtS 
COPMON/FOHMAT/IOtSST . U'fcSNO, IbRST, IbPNO, I GWR , SEPST . SEPSO i 

1 DIP* ICOP, IStP 

iNTkGt  R A,SFPST,StPNU*DlP,HLANK,5LASH,COMMA 
LjATA  HLANK/IH  /•SLASH/]H//,COHMA/lrl»/ 

ICOP=0 
ISC ASH=0 
00  ?0  1=1 *N 
jj»stPST*oiw*u-n 

IF  (A ( JJ)  ,E0,  HLANK) 

.EG,  SLASH) 

.EQ.  COMMA) 


60  TO 
GO  TO 
GO  TO 


?0 

5 

10 


IF (A ( JJ) 

IF (A ( JJ) 

GO  TO  30 
S CONTINUE 
ISLASHsl 

IF (ICO«  ,E0.  1)  GO  TO  40 
GO  TO  ?0 

10  IFdSLASM  ,E0,  1 .OR.  ICOM  ,EG,  1)  bO  TO  40 
ICOM=l 

?o  continue 

GO  TO  40 
30  IFdSLASH 
ISEP»1 

SEPN0=JJ-DIR 
return 
3S  CONTINUE 
ISEP»0 
sepnOsjj 

RETURN 
40  ISEP*-I 
return 
END 


,EG.  0 .ANO.  icon  *£0,  0)  GO  TO  35 


000000 1 0 

oonooopo 

00000030 

00000040 

00000050 

OOOOOObO 

00000070 

00000080 

oooooovo 

OOOOOl 00 
00000! 10 
00000 1 ?0 
OOOOOl 30 
00000140 

oooooiso 

ooonoifco 

OOOOOl 70 

OOOUOl 80 
00000 1 RO 
OOOOOPOO 
OOOOOPl 0 

oonoo??o 

0AOOOP30 

noooo?40 

OOOOOP50 

00000?b0 

oonoo?7o 

oooon?8o 

OOOOOPVO 
0O00O300 
0000031 0 
00000330 
00000330 
00000340 
00000350 


SUhWOUTiNfc 

COHHOK  A (1326)  •U(500)*IOTHL(Uf500)*lNlTlL)(3)*LASTlD(3)*  ISMCm(3)  • 

• NXT  lU  (?)  • JPTHtNtM*  JTYP*LSTA><T*N?,  I F ►jCnh  , LOO  1 U . I i)T  YP  • MO  , 

• LOC.LTyP, ITYP. IhLKOTfMOOt  * l£P«* IDES 
COPHOK/hASHL'^/IHLOCK  (2S0  0)  *NHLOCK  ,Ns,Nh(.NCh 

01  MENS  ION  I ALPHl  (7) f I ALPH?(^) , IALPm3(S) . I AlPHa (10) 

DATA  I ALPH]  / IHP,  1H6  , IhT*  IHU*  IHP,  IriN,  IH  / 

DATA  IALPH?/1«C, IMO* IHN* IHT t INI , IHN, IMU. int , ih  / 

DATA  lALPH3/lNSt IMTf IhO. INP* IH  / 

DATA  I ALPN4/1MP,  IML  • lHr»,  IMC*  IhR  , IhD*  IHA  , INT  # INA  • lfi  / 

IF  (ITYP  10)  bO  TO  ?S 

IF(ITYP  .to.  7)  GOTO  1** 

IF  ( ITyP  .E(J,  ?9)  00  TO  3S 
00  10  I»1 *7 

IF  (NtxT(jPTP)  ,Nt,  IAlPnI(I))  60  TO  SO 
10  CONTIKUt 
Nh>l 

nHPnCN») 

NbLOCR  *NWLOCK ♦ 1 
iNLOCK (NbLOCK) *99V 
Pk  TliPF 

15  DO  ?n  I«l,9 

IF  (NE *T ( JPTP)  .Nt,  IALPH?(I))  go  TO  SO 
20  CONTINUE 
Pt  TuPN 

25  00  30  I»1 .5 

IF  (Nk XT ( JPTPl  .Nt,  IALPn3(I))  60  TO  50 
30  CONTiMUt 
NM*l 

NbPNCH* 1 
NhLOCF  «PoLOCK* I 
IbLOCK (NbLOCK ) SVV9 
Pt  TuPN 

35  DO  40  I * 1 1 1 0 

IF (NExT(JPTP)  .NE.  IALPM4(I))  60  TO  SO 
40  CONTINUE 
Pt  TuPN 

50  call  tPP0P(7.!UNl,I0M2,inM3,lL)M4) 

PETUPN 

END 


SUhBOUTiNt  SLEvEL(FAIL) 

C0MM0N/LVAfiGS/LVFUNC,LVVA«6,LVVAD#LWP0S*LVVTYPtLVVAL. 
♦LVhEAD,LVVNVLfLVUtST*LVVALS( 10),LVTyPE(10) iLVSA IP 
COM^-ON/LVTAbL/LVTSIZtLVMAP  ( \ j /L V VSfc U/L VS  I • L VSU^P  { I ) 

COMMON  /NEED/  STAPT, ASSOC, level. STOP 

COMMON/NEEOS/STJ,  JS  TACK  ,R,JAS,J,  JL  AST,  P TEMP,  stack  (<»00,%) 
common  /STRING/  NNN(?),STP 
common  /JL/  JSTOP 

integer  STAPT.STOP, assoc  ; stack ,STR (500) ,ST J,P,PTEmP 
logical  fail 

C EXECUTE 

GO  TO  25000 
25001  continue 
RTEMPsO 
JSTOP=JSTACk 

10  IF(jSTOP  ,E0,  0)  GO  TO  40 
NPNTP=STACk (JSTOP, 4) 

IF(NPNTP  .6T.  0)  GO  TO  ?0 
IP  (STACp  (JSTOP,?)  .nE,  0)  GO  TO  30 
JSTOPsJSTOP-1 
GO  TO  10 
20  JST0P=NPNTP-1 
60  TO  in 

30  STAC*' ( JSTACK  ,4)  sJSTOP 
jAS=STACK (JSTOP ,?) 
psSTACK  (JSTOP,  1 ) 

PTEMPSM 

C P*LEVEL.JAS  »P 

p ♦ level 

LVVPOS  = JAS 

LVVTyP  = 3 

LVPUNCs  level 

LVVAPG*  P 

CALL  LVPIND(LV?  A,LV?  H,LV?  C,LV?  0) 

LVl  AAU  s P 

IP  (LVVAL.NE.-I)  LVl  AAO  a LVVAL 
C««»«  LVl  AAU  •*  P 

P s L V 1 A A 0 

fail  = . False. 

IF  (STACK  ( JST<^P,4)  .LT.  0)  ST  ACk  ( JSTUP  , 4 ) *0 
PE  Tl/PN 

40  fails, TPUt. 

PE  TURN 

C COMPLETE 

2SOOO  COnT INur 
LV?A=0 
LVPHsO 
LV?C=0 
LV20=n 
GO  TO  25001 
E M- 


oooonoio 
00000020 
00000030 
00000040 
00000050 
00000060 
OOOOOOTO 
00000060 
00000090 
OOOOOl 00 
000001 10 
00000120 
000001 30 
00000140 
00000150 
00000160 
00000170 
000001 PO 
00000190 
00000200 
00000210 
00OUO220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002MO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000360 
00000390 
00000400 
00000410 
00000420 
00000430 
OOO0O440 
00000450 
00000460 
00000470 
00000460 
00000490 

noooosoo 

00000510 


I 


I 


I/.7 


SUbROUTlNt  SOuEfeZ 

common  A<13?6)  *0(^00)  f lOTbL  ( 11  *500)  tlNlTlOO)  *LASTIO(3)  ,1SRCH(3)  , 

• NXTn)(?)  t JPTR#N,M,  JTYP.LSTA«T*N2,  I FnCNM  ,L06  1 0 1 1 OT  YP  .M  0 1 

• LOCtLTYP. ITYP.IOLKOT.MOOE, lERPt  lOES 
INTEGER  A»0*BLANK,AICH 

DATA  HLANK/IH  /,AICM/1^'M/ 

J«0 

DO  10  I«1*M 


ir(0(I)  .£0. 

HLANK ) 

GO 

TO  10 

J*J»1 

D ( J) >0 ( I ) 

I£(0<J)  ,NE. 

AICM) 

GO 

TO  10 

I£<JTyP  .NE. 

3)  (iO 

TO 

10 

RETURN 

10  continue 

MbJ 

RETURN 

END 


00000010 
OOOOOOZO 
00000030 
00000040 
00000050 
00000060 
00000070 
OOOOOOMO 
00000090 
OOOOOl 00 
000001 10 
000001 ?0 
00000130 
00000140 
00000150 
00000160 
00000170 
00000] AO 
00000190 


14H 


SUbROUT  iNt  S‘^TOR  (FAIL) 

COMMON/LVAPGS/LvFUNC.LVVARG,LVVAD.LVVPOS*LVVTYP*LVVALt 
♦LVHt AD,LVVSvL.LVCtST*LVVALS (10) •LVTyPE ( 10) *LVSKIP 
COPhON/l VTahL/1 yTS1?,LVmaP(  1 ) /LVVSEO/LVSiZfc  »LVSOSP  ( 
COM»*ON  /NEtO/  STAkTf  ASSOC,LEVEL*STOP 

COMMON/NttUS/ST J* JSTACK  • JAS* JLAST  *PTtNP,STACR (AOO  *4 ) 
/STRING/  NNN(?)*STR 

integer  ST art. stop, assoc t ST ACK,ST» ( 1 ) ,STJ,R,TEMP 

logical  fail 

C fe)iEC('TE 

GO  TO  PSOOO 
25001  continue 

JSTOPS»JSTACK 
C 5 P*ASSOC/IO 
5 CONTINUE 

R ♦ ASSOC 

LVVTYP  ■ 3 
LVVPOS  « 1 
LVINOX  ■ 0 
LVFUNC*  ASSOC 

LVVARGb  R 

CALL  LVF IN0(LVINDX,LVIN0X,LV1N0X,LV1N0X) 

LVl  AAO  s R 

IF  (LVVAL.NE.-l)  LVl  *AO  ■ LVVAL 
LVVTR  * LVVAL 
LVVAL  ■ -100 

IF  (LVVTR. EQ.-n  60  TO  10 

JSTOPS«JSTOPS*l 
STACK(JSTOPS,l)«R 
STACK(JSTOPS,?)*0 
S7ACA (JSr0PS,4/»0 
C 10  R(«STOP//20t*STOP/30  *»R/5/5) 

10  continue 

LVl  AAO  ■ R 

LVl  AAO  ■ STOP 

LVVAL  « -100 

IF  (LVl  AAO.NE.  STOP)  LVVAL  • -1 

LVVTR  • LVVAL 
LVVAL  • -100 

IF  (LVVTR. NE.-l)  60  TO  20 

LVl  AAO  « STOP 

LVVTYP  • 3 

LVVPOS  ■ 1 

LVINDX  • 0 

LVFUNCa  STOP 

LVVARG*  LVl  AAO 

CALI.  LVFIND(LV1N0X,LV1N0X,LV1N0X,LV1N0X) 

LVl  AAF  s LVl  AAO 
IF  (LVVAL.NE.-n  LVl  AAF  • LVVAL 
LVVTR  ■ LVVAL 
LVVAL  ■ -100 

IF  (LVVTR, EO.-l)  60  TO  30 

LVl  AAF  •«  R 

R ■ LVl  AAF 
LVVTR  • LVVAL 


OOOOOOlO 
0C00AO2O 
00000030 
1)  00000040 

00000050 
COO'^OObO 
00000070 

ooooooao 

00000090 
00000100 
000001  10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
000001  AO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002AO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
000003A0 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 


I 


LVV&L  » -IftO 
IF  (LVVTk.tU.-l ) GO  TO 
IF  (LVVTR.N£.-1)  go  to 
) FAlL  = .FAL«;t, 

PtTuJ^K 

) JSTACn»JSTOP«i/40 
) CONTiM.t 

► JSTACk  = 

lvval  = -ion 

IF  ( JSTACK.Kt, 

LVVTM  s lvval 

LvVAL  = -100 

IF  (LVVTK.hO.-l ) GO  TO 

FAlL=,TPUfc. 

fee  TtJPF. 

I keSTMCK  ( JSTOPS.  1 1 
jA«is^T  ACK  UbTOPS  .?)  *\ 
^♦ASSOC.JAS  “TtPP//?.0 
U * 

LWPOS  = JAS 

lvvtyp  = 3 

LvFtjF-Cs  ASSOC 

LVVaPGs  P 

call  LVF  IND (LV?  a, 

LVl  AAD  s t 

IF  (IVVAL.M.-l)  LVl 
LVl  AAO  •• 

TFmp  3 LVl  AAI 

LVvTP  s LVVAL 
LVVAL  » -100 
IF  (L  VVTP ,Nt ,-l ) GO  TU 
JSTOPSaJSTOPS-1 
//30 

LVVTP  » LVVAL 

lvval  * -ino 

IF  (LVVTB.NE ,-l ) GO  TO 
STACK ( JSTOPS.?) *JAS 
O*T£mp//40 

R s 

LVVAL  = -100 
IF  ( 

LVVTP  « LVVAL 

lvval  * -100 

IF  (LVVTP, NE.-l)  GO  TO 
TEMP  «P//S 

T£mP  m 

P * TtMF 

LVVTP  « LVVAL 

lvval  ■ -100 

IF  (LVVTP. NE ,-l 1 GO  TO 

complete 

PETUPN 

CONTINUE 

LV?A«0 

LV?H«0 

LV2C-0 

LV?D*0 

GO  TO  PSOOl 

END 


JSTOPS)  LVVAL  a 


A,LV?  H,LV 

P 

AAU  = LVVAL 
••  TEMP 


TEMP)  lvval 


oononsfro 
0OO00S70 
''ooonsHo 
onoonspo 
00000^00 
00000810 
000008P0 
00000830 
00000840 
000008SO 
0O00O88O 
00000870 
000008HO 
0O0008P0 
00000700 
000007  1 0 

oonoo7?o 
0O000730 
0O000740 
0O00O7SO 
00000780 
00000770 
00000780 
O000O7P0 
OOOOOAOO 
OOOOOPl 0 
0O00O8PO 
0O00OA30 
0O00O«40 
onoOOHSO 
OOOOOR80 

onoooA  70 
00000880 
0O000A9O 
00000900 
00000910 
000009P0 
00000930 
00000940 
000009SO 
00000980 
00000970 
000009HO 
00000990 
0000 1 OOO 
OOOOlOlO 
00001 0?0 
00001030 
OOOOIOAO 
00001050 
00001 080 
OOOOl 070 

00001 Ofto 

00001090 
00001 100 
00001 1 10 
OOOOl 120 
OOOOl 1 30 
OOOOl  140 


00000010 

oooooo?o 

00000030 
000000^0 
00000050 
OOOOOOfcO 
00000070 
00000080 
00000090 
OOOOOlOO 
000001 10 
oooooi?o 

00000130 
00000140 
00000150 
00000180 
000001 70 
00000180 
00000190 
00000?00 
OOOOOPIO 

ooooo??o 

OOOOOP30 

00000?40 

00000?50 

00000?60 

00000?70 

00000?HO 

00000?90 

OOOOOlOO 

oooooiio 
000001?0 
00000130 
00000340 
00000150 
00000380 
00000370 
00000380 
00000390 
00000400 
000004  1 0 
000004?0 
00000430 
00000440 
00000450 
00000480 
00000470 
00000480 
00000490 

ooooosoo 

00000810 

OOOOOSi»0 

00000530 

00000540 

00000550 


SUBPOUTiNt  STATNO 

COBMCN  6(13?8),U<500).IDThL(llf500).INITlO(3),LASTIO(3i , ISPCH ( 3) • 

• NXTIP  (?)  , JPTB,N,M,  JTyP,LSTAMT*N2,  I FnCNH  , LOf*  1 0 • I DT  YP  , M 0 . 

♦ LOC#LTYP,ITYP,IHLKOT,MOnE.ItPRfIDES 
COHHON/LAbELS/S TATRA (?,?nO) *NLABEL 
COmmOK/DOLOOP/I stack (4,50 ) , NS TACK, ILOOP, IOvFLW 
C0»-MC8/hAS8LK/I8L0CK  (2500  I , NBlOCK  , N8  , N8PNC8 

INTEbFP  A,HLANk,STATRA 

INTEbtP  8lTPiJT,bIT6ET 
DATA  PLANK/IH  / 

LOC  = 0 

DO  5 1=1,5 

1F(A(I)  ,NE,  BLANK)  GO  TO  10 
5 CONTIKUt 

IF (ITYP  ,Nt,  18)  GO  TO  7 
IF  ( IHLKDT  ,t'0,  1 ) RETURN 
IF{nBRNCH  .to,  0)  60  TO  110 

I BLOCK ( IBLKST) =bITPUT ( I BLOCK (IBLKST) ,NHRNCh,b) 

RETURN 

7 IF  (ITYP  .to.  ?8)  GO  TO  90 
IF(NHL0CK  .to,  0)  GO  TO  H 

IF ( IHLOCK (NbLOCK ) ,£0.  998)  GO  TO  3? 

IF (NB  .EQ.  2)  60  TO  31 
IF (Nh  .EQ.  1 ) GO  TO  70 
RETURN 

8 NHLOCKsl 
GO  TO  34 

10  IF(ITYP  .to.  18)  GO  TO  50 
JPTP=I 
CALL  GNLc 

IF ( JTYP  ,Nt . 5)  GO  TO  50 
IF(A(h)  ,Nt,  hlANK)  oO  TO  50 
IF ( JPTR  .LT.  8)  GO  TU  50 
CALL  ST5WCH 

IF (blTGtT (5TATPA (?,L0C) ,9, 3)  .EO,  1)  GO  TO  80 
5TATPA (?,LOC) =hITPuT ( ST ATOtt ( ? , LOC ) ,1,9) 

IF  (LTyP  .to.  9)  GO  TO  ?0 

5TAT8A (?,LOC) «BI TPUT ( ST A TP A { ? , L OC ) , I T YP , 8 ) 

GO  T^  30 

20  ST4TRa(2,L0C) =B I TPUT (ST a TP a (?,L0C) ,9,8) 

30  IF  (ITYP  .E(J.  28)  RETURN 
IF(NBLOCk  .to,  0)  GO  TO  « 

IF (N8  .to.  1 ) GO  TO  3? 

31  NhLOCK s^bLOCK* 1 
IHLOCK (NhLOCKjsPSh 
^8U^.Ch=  1 

32  NPsO 

NBL('Ck  SN8L0CK  ♦ 1 

IRL(’CK  ( iHLK^T  J =P  I TPUT  ( IhLOCk  ( IBLKST  ) ,NHLOCK  ,?4  ) 
lBLUCK(l8LKST)=8lTPUT(IeL0CK(IhLKST),N8RNCH,8) 

Jl=IhLKST*l 

J?=NhLOCK-NBRNC8-l 


IF ( IHLOCK ( J?) 

.GT.  8000) 

GO 

TO 

34 

J?l=J?-l 

?1  IF ( I8L0CK ( J1 ) 

.1 T.  8000) 

GO 

TO 

34 

IRES=IBLOCk ( Ji ) 

00  22 

22  IBLOCK (K2) aIHLOCK  (K2*l  ) 

IhLOCK ( J?) =IPtS 
60  TO  21 

34  iHLKSTsNbLOCK 
NfaMNCH=0 

I BLOCK  ( lBi.KST)  st'ITPUT  (0,  ILOOP,  12) 

1F(L0C  .eO.  0)  RtTUWN 

I BLOCK  (IbLKSr)=hITP(iTi  IhLOCK  ( I HLKS  T I , LOC  i 32 ) 
STATRA{?,LOC)*blTPUT ( ST  A T« A ( 2 , LOC ) , IHLKST.32) 

IF (PIT6fcT{STATbA(2*L0C) .1S*3)  .Nfc*  \)  WfcTuRN 
IFdOvFLw  ,E(J,  1)  hETuRN 
IF(L0C  ,Nt,  ISTACK ( I , ILOOP) ) 60  TO  80 
IFdTyP  ,Gt.  3 .ANU,  ITyP  ,LF.  B)  60  TO  100 

IF  ( ITYP  .LQ,  R .OR.  ITyP  .EO,  10  .OR,  ITyP  ,F0.  1?)  60  TO  100 
NHs2 

ISTACK (2, ILOOP) =1 
NBLOCKsNdLOCK.l 

I BLOCK (NBLOCK ) =60 00 ♦ I stack (4 . ILOOP ) 

KLOOP=ILOOP-1 

00  40  J=1,KL00P 
L00P=IL00P-J 

IF (ISTACK (2, LOOP)  ,E0,  1)  GO  TO  40 
IF  dSTACK  d .LOOP)  ,EO,  LOC)  60  TO  35 
ILOOP=LOOP 
RETURN  , 

35  ISTACK (>,LOOP)=l 
NBLOCK  =^lBLOCK  ♦ 1 

1 BLOCK  (NBLOCK) =60  00* ISTACK (4. LOOP) 

40  CONTINfifc 

ILOOP=0 
RETURN 
50  IERC=32 
60  TO  200 
60  ItPC=33 
60  TO  200 
70  IEPCS34 
GO  TO  200 
80  IERC=35 
60  TO  200 
90  IERC  = 36 
60  TO  200 
100  ItRC=37 

GO  TO  200 
no  IERC  = 3b 

200  call  FRROP  (IERC  , lOMl  , I()M2,  IUM3,  I0M4  ) 

RE  TljRN 
FNU 
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00000600 
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00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

OPCU0800 
0000081 0 
00000820 
00000830 
00000840 
00000850 
0O000860 
OOOOOM70 
OOOCOHHO 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
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0000  1 0 1 0 
00001020 
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1 


<;UbPOuTlNt  STFKC(NFnC) 

COMMON  A ( 1 3?6)  *D  (SOO)  , IUToL<  lI*500)*IMTIO(3ltCASTID(3),  ISPCh(3)  . 
• NXTIO (?)  , JPTP.N.H, jTYPtLSTARTfN?, I F NCNm • LOG 1 0 * I OT YP * N 1 D • 
fLOC  *LTyP , IT yP , IHLKDT .MOOe , It MW* lOFS 
COMMON/FuNC/ IFNCPA (S*??) *mARGS* I ARGS (SO ) *FNCL0C (5) *nfunc 
INTtGFP  blTGtT 

NAPG-HiTGeT ( lOTbL { 3.LOC) *7*6) 

NAW?sIFSCPA(NFnC*1) 

IF(NARG  .Nk,  NAR?)  CALL  F PROP { ?6 * 1 0 T BL (I  * LOC ) * I D T BL ( ? t L OC ) * M 

NAPGSsMiNO (NARG*NAR2) 

KOUNTsO 

NT*1* (NARG-1 ) /3 
DO  10  I*1*NT 
IC0Ll«-6 
IC0L?=-3 
DO  10  J=l*3 
ROUNTsKOuM*  1 

IF(R0UNT  ,GT,  NARGS)  return 

IC0L1*IC0L1*9 

IC0L?=IC0L?*R 

IF  (HITGET ( IFNCPA (NFnC, 1*1 ) , ICOLP*  3)  .N£  . 0) 

% call  EPROR(^n.ROUNT*Il*I2.l3) 

1 TP isBITGET (IFNCPA <nFnC.1*1 ) . ICOLl .3) 

IF (ITPl  .to.  0)  60  TO  10 
ITP?«HITGET ( lUTHL ( 3 • LOC* KOUNT ) • 10*3) 

IFdTPl  ,Nk,  ITP?)  call  ERR0R(5l*R0UNT*Il.I?*13) 

10  CONTINUE 
RETURN 
END 


00000010 

OOOOOOPO 

00000030 

0^000040 

oooonnbo 
00000060 
OOCOOOTO 
OOOOOOAO 
C0OCO090 
OOOOOl 00 
00000] 1 0 
OOOOOlPO 

onooni 30 
OOOOOl AO 
oooon  1 E'O 

OOOOO 160 
OOOOOl 70 
00000160 
oooon 1 9o 
00000200 
nooonpio 
00000220 
00000230 
000002<»0 
0000O250 
00000260 
00000270 
00000280 
00000290 


SUbhOUTlNe  STORfc 

CObNON  A (I32ft) ,0 (500) ♦ IDTHL (11»500)*|N1TIO(3|,CASTIU(3), ISRCM(3l • 

• KKTID  (?)  . JPTR#N,M,  JTYPtLSTART.N?*IFNCNb,LO(3lO«  lOTYRtKin, 

• LOCtLTYP* ITYP, IBLKOT,MOOF • UH»*10ES 
NI0«M0«  1 
1F(NI0  .GT. 

•NC«  0)  60  TO  S 

)TYP) ■NIO 

CONTINUE 
IDTHL ( 1 
lOTbU  (?ff 
1DT8L (4,NID) 

•EQ,  0)  60  TO  10 
I 

I0TeL(4fCAST)*MD 
10  LASTIO  ( lOTYP)  *M0 
PETUPN 

?0  WRITE (6,?5) 

25  F0RNAT{/////5X,46M  symbol  TABLE  OVERFLOW  • PROCESSING  TERMINATED) 
STOP 
END 


• 500) 

GO 

IDTYP) 

• NE 

YP) aNlO 

0) «NXT  1 

0(1 

U) «NXT1 

D(? 

D)  BO 

IDTYP) 

.EO 

D( IDTYP 

I 

00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
OOOOOOAO 
00000090 
00000)00 
000001 10 
00000120 
00000130 
00000)40 
00000150 
00000160 
00000170 
00000)60 
00000190 
00000200 
00000210 


SUBROUTINE  STSRCH 

COMMON  A (1326) «0(500) • lOTBL ( 1 1 t 500 ) tINlTlO(3),LASTID(3) .ISRCH 

• NAT  ID (2) f JPTR,N,M,JTYPtLSTART#N2,If nCNM,L06I0*I0TYP#N1D» 

• LOCtLTYPt ITYP, IBLKOTfMOOE*IERRf IDES 
COMMON/LABELS/STATRA( 2*200 ) .NLABEL 
INTEGER  STATRA 

IF(NLABEL  .EO.  0)  GO  TO  15 
00  10  I»1*NLABEL 

if(statra(i,1)  ,ne.  n2)  go  to  10 
LOC»I 
RETURN 
10  CONTINUE 
15  NLABEL«NLABEL«1 

IF(NLA6EL  .GT«  200)  GO  TO  20 

LOCkNLABEL 

STATRA (1 *L0C)«N2 

RETURN 

20  WR1TE(6*25) 

25  FORMAT J/////5X*53H  STATEMENT  NO,  TABLE  OVERFLOW  • PROCESSING 
•NATEO) 

STOP 

END 


(3)  < 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000090 
00000090 
00000100 
00000110 
00000120 
00000130 
00000)40 
00000150 
00000160 
00000)70 
00000190 
TERW100000190 
00000200 
00000210 
00000220 


su^oooTiNe  shh 

COfc«*»ON  A ( 1 3?^)  .CMb0  0)tIOTHL(nt500).lNITlD(3),LASTlU(3),  ISPChO)  , 

• NXT  ILm?)  . JTyP,LSTAPT  ,N?,  !►  NCN»-,t.OOIO*  I0TV»^.NID* 

• LOC*LTYP, I TVH, IhLKUT ,h(DF , IfcPP, lUtS 
Ol^'t  Nf  I«  K I aLkh  ( 1 0 ) . 1 AUPH?  (H  ) *M  (5) 

I^TF^^^K  hLAf(R,C(.'**MA,HH*.M,A,U 
INTfeGtP  hITPcT 

Data  I ALPN/IHS,  IHU*  iHh,  Inp*  JHO*  lHt>*  IMT  t IHI  , IHN,  1H£/ 

Data  i alpm?/ i hF , j mu. 1«n* 1 hc • Iht • i mI , iho* ihn/ 

DATA  aT  / Imp,  IhC  • IML).  IMI  , jMt  / 

DATA  MLANA/JM  /,LPAW/Ih(/,RPAR/IMJ /.COPPA/lh,/ 

DATA  If/lMF/ 

ISTATE«0 

NARG«0 

IFUTyR  .to,  30)  oO  TO  S 

? 00  3 

IF(MxT(JMTR)  ,Nt,  IAlPh?(I))  60  TO  50 
3 CONTiM't 
60  TO  1? 

S 00  10  I«1 *10 

IP (Kt*T ( JPT«)  ,Nt.  IALPH(I))  60  TO  50 
10  CONTlNUf 
GO  TO  17 
I?  IPTR«JPT« 

IST-1 

IFPST«NtXT (1ST) 

IP ( IPRST  ,tu,  IF ) GO  TO  14 
00  13  I»l*5 

IPdPRST  ,NE,  AT(l))  00  TO  13 
ISTaTF*! 

60  TO  14 

13  CONTINUE 

14  JPTR«1PTR 
17  CALL  GNLE 

IF (JTVP  ,NE.  ?)  00  TO  SO 
I0TYP«2 

call  store 

IE*U  (1  ) 

IP(ITyP  .Nfc,  31)  00  TO  IS 
IP (NEXT ( JPTR)  .Nfc.  LPAR)  60  TO  SO 
IPNCNK«NI0 
60  TO  ?0 

15  IP (NEXT ( JPTR)  ,E0,  BLANK)  60  TO  30 
IP<A(JPTR-U  .Nt.  LPAR)  60  TO  SO 

20  call  6nLE 

IP ( JTYP  ,NE.  ?)  60  TO  60 
CALL  SEARCH 

IP(]SRCH(1)  ,NE,  0 .OR.  I$RCH(?)  ,nE,  0) 

% call  error (A6,NXTIU(1 ) ,NxT1D (?)• IOM?, IDM3) 

IOTyP-1 
CALL  STORE 

IDTBL (3*NI0) "HITPUT ( I UTBL ( 3 . N 10 ) • 1 , 1 ? ) 

NAR6«NARG«] 

IF (NEXT (JPTR)  ,E0.  RPAR)  60  TO  30 
IP(A(JPTR-1)  ,Nt.  COMNA)  60  TO  SO 


oooonn  1 o 
00000020 
00000030 
00000040 

ooooooso 
00000060 
0O0OCO7O 
OOOOOOHO 
00000090 
OOOOOlOO 
000001 10 
00000120 
00000130 
00000140 
OOOOOISO 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
0OO0O280 
00000290 
00000300 
0(>000310 
00000320 
00000330 
00000340 
O00003S0 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
OOOOOSOO 
00000510 
00000520 
00000530 
00000540 
00000550 


I 


GO  TO  20 

onoon^feo 

COC«l 

OOOOOS70 

0(n*u 

Of'OOOSflO 

If  ^^ARG  ,GT,  f«3)  CALL  LRHOP  (»3t  1D*«1  . lo**?*  Il'M3,  IL>H4  » 

00000^90 

If  «'L  (3.L0C)  sblTPUT  { lOTHL  <3.L0C  ) ,KA«0,7  ) 

onoooboo 

If  ( I TyP  ,tO,  30 ) PtTURN 

onooobio 

IF  ( iSTATfe  ,eO,  0)  GO  TO  5S 

00000^20 

lOTHL ( 3#LOC) *HI TPUT ( lUTbL { 3,LOC) • ISTAit , 10) 

00000**30 

IDTbL  <3»L0C) sHl TPUT ( lUTHL (3*LOC)  . 1 • 1 1 ) 

OOflOOfeAO 

we  Turn 

noooof'So 

call  ImPTyP 

OOOOOG60 

Wfe  TliPN 

OOOOOA70 

50 

call  tPWOP (7, IDHl . ION?, 10M3, lUMA) 

oonoo^iHO 

RETURN 

oooon#^9o 

t>0 

call  ERW0»(86*N)iTI0(1),NXTI0(2)  •10M3,IDN4) 

00000700 

RETURN 

00000710 

END 

00000720 

1 >h 


SoewoijT !nE.  suHC>-K  ooconnio 

CO*-“On  ^•(I^•>^l.l'(bnO).IUT^^L(11.5nOI^INITIU(3l,LASTIU(3),!SwC^'l3).  OnnonnJO 

• ^«Tll.■(?|.J^'T^.^.^•,JTyp,LSTA^-T,N^,I^^c^*'.LOCJID.Il1TT>-.^^ll.  onnonn3o 

ALOCtLTvP.ITYP.  IPLrDT  .Moot  .ItPP.IOtS  noOOntw.0 

CO‘'POE’/1-LChal/NPLI>  tNPtE,NSIIhS.bLKTOL(?nO).txTTHL(l(in).IAIHS(inn)  nooonnin 
COP“Os/LI';T/NLlAT,NiNTFCtIsuHLT(<.,<;oo).INTEAC(6nn)  nooronf.n 

IeTEC'EP  b I TPnT  ,nl  Tbt  T 00000070 

NSllMS=N«UbS«  1 OOOOOOMO 

IF(NSL'MS  .67.  100)  GO  TO  SO  OcOOOOPO 

KA»6=P176tT(I0TPLI3.1).7,h)  00000)00 

iTP=PIT6tT(IDThLl3,l).10.3)  00000)10 

IF (Ml Tbt T ( IDThL ( 3« 1 ) . 1 H . 1 ) .EO.  1)  60  TO  IS  0O00O1P0 

lOTPL (3,1) =BITPuT ( lOTbL (3.1), 1,18)  00000) 30 

00  5 I=1,NLIST  OOOOOIAO 

IF  ( IC'TBL  ' 1 , 1 ) .NE.  ISUBLTd,!))  60  TO  5 OOOOOlSO 

IF  ( IPTBL  (?,  1 ) ,N£.  ISUBLT(?,I))  60  TO  5 tlOOOO)hO 

LISTLC=I  00000)70 

lOTBL  ( 3,  1 ) =EII  TPOT  ( lOTbL  (3,1)  ,LISTLC,3?)  00000)80 

GOT0?0  0(i000)y0 

S CONTIMJE  OOOOOPOO 

CALL  FpPOP (5?. lOB) , lOP?, IDM3, IDM* ) OOOOnPlo 

NL I ST=NL 1ST, 1 00000??0 

ISlIBLT  (1,NLIST)=1UTML(1.1)  OOOOOP30 

ISIiBLT(?,NLIST)sIDTML(?,1)  00000?»0 

ISUEIS  (NSUHS)  =NL  1ST  OOOOOPSO 

ISUE>LT  ( 3,NL  1ST  ) *0  0OO0O?m0 

ISl'BL  T ( A ,NLI  ST  ) *0  00000?70 

IDTPL  ( 3, 1 ) =BITPllT  ( IDTBl  (3,1),NLIST,32)  CooOOPBO 

IF (NAP6  .EO.  0)  PETUPN  OOOUOPBO 

1PTPsMnTFC«1  00000300 

ISObLT(3,NLIST)sBI''PIIT(0,NARG,6)  000003)0 

ISUBLT  ( 3,NLIST)  sBITPUT  ( ISlIBLT  (3,NLIST)  , I TP,  13)  0OO0O3P0 

ISUbL' I*,NL1ST)=1PTP  00O00330 

MNTFC=IPTR,  (NAP6-1  ) /3  000003*0 

KOUbT=0  000O03S0 

00  10  I=IPTP,MINTFC  000003MO 

INTFAC(I)-0  00000370 

IC0Ll=-6  0OO0O3M0 

IC0L2*-3  000003*0 

00  10  J=l,3  00000*00 

K0UNT=K0UNT»1  OoOOO«lo 

IFlKOl'NT  ,GT.  NAB6)  PETUPN  0O000*?0 

ICCL1=1C0L1»9  fO00O»30 

ICOL?=ICOL?,S  00000*. 0 

ITP=BITGf T ( lOTBL (3,K0UNT*1 ),10,3)  OOOOO.SO 

bOIPsBITGET .IUTbL(3,K0UNT,l) ,7,b)  00000*80 

lOTEiL  ( 3,S0UNT,  I ) =B  I TPUT  ( I t)T8L  ( 3,K0(INT,  1 ),1,1S)  000  0 0.70 

INTFAC ( I ) iBITPUT (INTFAC(I),1TP, ICOLl ) OOOLO.hO 

10  INTFAC  ( I ) »BI  TPllT  ( INTFAC  ( I ) ,bniM,  ICOL?)  00000*8(1 

RETURN  00000*00 

IS  LISTLC  = MIT6ET ( IOTBL ( 3,  1 ) , 3?,8)  00000*10 

20  I SUbS (NSUBS ) »L ISTLC  00000*20 

KLAS  = BITGET( ISUBLT (3,LISTLC)  , 1 0,*)  00000*30 

NAR?=hITGET(ISUBLT(3,LISTLC),8,b)  00000**0 

IF(NAP6  .Nt.  NAR2)  CALL  E WPOM  ( ?8  , I 0 T HL  ( 1 , 1 ) , I U TbL  ( 2 , 1 ) , I U 8 3 , I (18*  ) OOOOOSSO 


I S7 


NAPGS=MlNO(NflPG*NAM?) 

IF  ( I TP  , HiTbfc  T ( ISUhLT {3«LI5TlC)*13.3)) 
f CALL  EPWOe  ( IDTHL  ( 1 . 1 ) . lUTbL  (?f  1 ) . !L'»-3.  K'Ma) 

IF (KAPGS  .to.  0)  PhTUPN 
IPTP=ISUhLT (A .L ISTlC) 

^rDPTPsIHTP♦  (NAPGS-1  ) /3 

kount=o 

00  ?S  I=IPTR*NDPTP 
IC0Ll=-6 
IC0L?=-3 
DO  ?<5  J=1  ,3 
^OV)f•^Ts^OuNT  * 1 

IF(KOl’NT  ,GT.  NAWGS)  PETURN 
ICOl 1-IC0L1*P 
ICCL?=ICUL?*‘^ 

ITPsf'I  TGt  T ( IMF  AC  ( 1 ) , ICOLl  .3) 

Mjl^'=HlT6E  T r INTF  AC  ( I ) , ICOLPf  3) 
iTP^sblTGE  T ( lOTPL  ( 3.K0UM*!  ) * 1 0,3) 

NDlM?  = oI  TGtT  ni  TbL  ( 3*KOUM*l  ) • 7,6) 

IO^TAT=b  iTGt  T ( IMF  AC  ( I ) , ICOL2*?.?) 

IF(I0?TAT  ,E(i.  ? ,OW,  KLAS  .Eg.  0)  I0STAT=1 

IDTbL ( 3«KOUNT* 1 ) I TPUT ( I OTRL (3tK0UNT*l ) * lOSTAT* 15) 

if(MMm  ,ne.  ndim?)  call  Error (50 f^ouM • IOH2, iDM3f idm4 ) 

IF  (ITP?  ,nE,  n)  GO  TO  ?3 
ITP?=l 

IFST=bITGET( IUTRL( I ,KOUNT* 1 ) ,8,8) 

IFdFST  ,LE.  ?13  .AND,  IFQT  .GE.  ?01)  ITP^  = 4 
H3  IF(ITr  ,NE,  ITP?)  call  error (51 ,kOHNT, IDM2, IOM3, IORA) 

?5  continue 
PETL  RN 

so  call  E RPOR (?S, ICRi , lOR? ♦ IOM3, IOW4) 

STOP 

END 


00000560 

00000570 
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000005PO 

0{'000600 

00000610 

00000620 

00000630 

00000640 

000006SO 

00000660 

00000670 

00000660 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 
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00000770 
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00000830 

00000840 

00000850 

00000860 

00000870 

00000880 


SUhPOUTINE  Switch 

COMMON  A ( 1 326)  , 0(500), IDTBL (11, 500)*lNlTn)(3),LASTlO(3), ISRCH( 3) , 

* NxTlU(?),jPTrt,N,M,JTYP,LSTART,N?,  I F nCNM  , LOG  I 0 , IOTVP,MD, 

• LOC  .LTyP, ITyP, IHLKDT,moDE • IEHP, IDES 
DO  20  1 = 1, MD 

IF  ( IDTHL  (4 , I ) ,NE,  LOC)  GO  TO  20 
lOTBL (4, I ) =IDTRL (4, LOC) 

IF(LASTID(1)  .eg,  LOC)  LASTID(1)*1 
GO  TO  10 
20  CONTINUE 

INITIO(1)sIOTHL(4,LOC) 

30  LAST=LASTID(?) 

IUTHL(4,LAST)=L0C 
IOT«L(4,LOC)=0 
LASTID(2) *LOC 

CALL  ERROR (87, IDTbL ( I ,L0C) , I OTBL ( 2 , LOC ) ,I0M3,I0M4) 

RE  TURN 
ENO 


OOOOOOlO 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 

0(\000090 

ooooni 00 
000001 10 
00000120 
000001 30 
00000140 
00000150 
00000160 
00000)70 
00000180 


SUfROUTiNt  SYRTAH 

CORRON  A ( 1 3?A)  .Li(5>no).IUThL(ll«SnO).lNlTlU(3),LASTID(3)  , ISRCM  (3)  . 

• N«TIU(?),JRTH,N,R.JTYP,LSTART.N?, I KuCNR . LOG  1 0 . lUTYR.MID, 

• LUL.LTyR, ITYP, IRLADT.RCOt.ItRR. lUES 
CORRON/LAGELS/STATHA (?,?nO),NLABEL 

CO“RON/Ul«T/NL  IST.NINTFC.  ISIIBLT  (*,200)  . INTFAC  (600) 
CORRON/STF(iNC/NBTFnC,  ISTFNC(  10) 
niREF’BlON  ITAHEL  (■»)  . IRA  (2) 

INTEGER  TYPE(?,b) .UI«S(3) .bITGET.STATRA 
DATA  type /*hWE  AL  , 11  , *MCOMP  , 3MLE  X , *MOOUEl  . 

• 2iLE.*MINTE.3RGER,*MLn6I, 31CAL/ 

Data  ihlanf/im  /,  ha  ( i ) /*harra/, ira (2) /imy/, ifp/*hf ,p./, 

• IRLASH/21/// 

DATA  DIRS/Hl  . 112, 113/ 

IF(MD  ,LE,  1)  RETUKN 
IF  (IhLKDT  ,EQ.  1)  GO  TO  2 
INTL=IMTI0(2) 

RPITE  (6,  1 ) 10TE<L  ( 1 , INTL)  , I DTBL  ( 2 , I NTL) 

1 FORMAT (//////*6X, 261  SYMBOL  TABLE  FOB  MODULE  ,A*,A2) 

60  TO  * 

2 WRITE (6,3) 

3 FORMAT (//////*6X ,2B1  SYMBOL  TABLE  FOR  BLOCK  DATA) 

A LOC«INITID(l) 

IF (LOC  ,EQ,  0)  60  TO  2B 
WRITE (6,5) 

5 FORMAT (//56X,R1VARlABLES/3nx,*MNAME,12X,*1TYRE,31X,10HRELOC*TION) 
100  ITABEL ( 1 ) »IOTlL ( 1 .LOC) 

ITAbEL(2)*IOTHL(2.LOC) 

IF  (E-ITGET  ( IDTBL  (3.LOC)  ,1  1 , 1 ) ,EO.  0)  GO  TO  27 
IwPITGET ( I DTBL (3, LOC) . 10,3) 

ITABEL(3)«TyPE(1,I) 

ITABEL (*) «TYRE (2,1) 

IF  (BITGET  ( IDTBL  (3.LOC)  , 1 , 1 ) ,E(3.  0)  GO  TO  16 
ITABEL (5) «IRA ( 1 ) 

ITABEL (6) *1RA (?) 

HlITGET  (IDTBL  ( 3.LOC)  ,7,6) 

ITAbEL (7) -dims ( 1 ) 

60  TO  IB 

16  ITABEL (5)»IBLANK 
ITABEL(6)«I8LANK 
ITABEL (7)«IBL*NK 

IB  IF  (BITGET(IDTBLO.LOC)  ,12,1)  ,EO.  0)  GO  TO  20 
ITABEL (B)«IFR 
ITAbEL (R)*IBLANK 
60  TO  25 

20  IF (bITGET (IDTBL (3,L0C) ,16,1)  .EO.  1)  GO  TO  22 
ITABEL (B)«I8LANK 
ITABEL (9)>I6LANK 
60  TO  26 

22  ICOMNMwIDTBL (9.L0C) 

ITABEL (8)«I0TRL (I, ICOMNM) 

ITABEL (9 )• IDTBL (2, ICOMNM) 

IF(ITABEL(8)  ,EQ.  IBLANK)  ITABEL (8) 'ISLASH 

25  WRITE(6.26)  (ITAeEL(I),I«I.9) 

26  format (30X.A4.A2, 1 1X.A4, A3, 1*X,AA, A1 ,1X.A1 ,7X,A*.A2) 


27  LOC-IOTBL (*,LOC)  00000560 

IF(L0C  .Nt.  0)  GO  TO  100  00000570 

28  IFdBLKDT  ,E().  1)  GO  TO  60  00000580 

LOC»IOTBl  (*.  INTL  ) 000005<»0 

IF(L0C  .EU.  01  GO  TO  60  00000600 

WPITE  (6,31 ) 00000610 

31  FORMAT (//55K . 1 OB  E X TEPNAL5/64 X « 4MNAME , 1 OX , *HT YPE , 1 OX , 4MAHGSV  00000620 

30  ITAHEL ( 1 ) =10TBL ( 1 .LOG)  00000630 

ITABEL (2)=IDTmL (2.L0C)  000006A0 

LISTLC=BITGET(1UTBL(3.L0C) ,32,«l  00000650 

IFiLlSTLC  ,EO.  01  GO  TO  39  00000660 

ITPsHITGFT(I5UBLT(3,LlSTLC) ,13,31  00000670 

1F(ITP  ,EQ,  01  GO  TO  32  00000680 

ITABt L (3) =TYPF ( 1 , ITP)  00000690 

ITABEL(*)=TYPt (2,1TP)  00000700 

GO  TO  35  00000710 

32  ITABEL(3)=IbLA\x  00000720 

ITABl L ( A I = IBL ANK  00000730 

35  IF (MiTGt T ( I5UMLT (3,L ISTLC) , 14, 1 ) ,EQ,  1)  GO  TO  37  00000740 

IT  ABEL (5) »B1 TGtT ( I SUBL T ( 3 , L I STLC ) ,6,6)  00000750 

»RITE(6,36)  (ITABEL(I) ,1=1,5)  00000760 

36  F0BMAT(44X,44,A?,8X,A4,A3,8X,I2)  00000770 

GO  TO  39  00000780 

37  i.PITE(6,3H)  ( ITAHEL  1 1 ) , 1 = 1 ,4)  00000790 

38  FORMAT (44X , A4 , A2,8X , 44, A3, 8X ,2M> I ) 00000800 

39  L0C*UiTBL(4,L()C)  00000810 

1F(L0G  ,NE.  0)  GO  TO  30  00000820 

60  1F(N5TF6'C  .EO.  0)  60  TO  40  00000830 

irPITE  (6,62)  00000840 

62  f OWMAT ( //50X , POM  STATEMENT  FUNCTIONS/  00000850 

% 44X ,4HNAME , 1 OX ,4MTYP£ , 1 OX ,4HARGS)  00000860 

00  70  I=1,NSTFNC  00000870 

LC=ISTFNC(I)  00000880 

ITP*MITGET ( lOTBL (3,LC) , 10,3)  00000890 

NRGshI  TGET  (IllThL(3,LC),7,6)  00000900 

70  bBITE(6,36)  IOTML ( 1 ,LC) , IDTBL (2,LC) ,TYPE ( 1 , ITP) ,TYPE (2, ITP) ,NMG  00000910 

40  IF(NLAhEL  ,Efl,  0)  GO  TO  so  00000920 

MRITE (6,42)  00000930 

42  FORMAT ( //51 X , 1 7H  STATEMENT  LABELS)  00000940 

i«RITE(6,45)  (STATRA  ( 1 , I ) , III  ,NLABEL)  00000950 

45  FORMAT (40X ,518)  00000960 

UO  47  I=1,NLAmEL  00000970 

IF (HITGET(STATRA(2,I) ,9,3)  ,NE.  1)  00000980 

« CALL  error ( 15, STATRA ( 1 , I ), I0M2, IOM3, IOM4)  00000990 

IF  (bITGET (STATRA (2, I ) , 12, 3)  ,NE,  1)  OOOOIOOO 

T Call  error  ( 16,ST  ATRA  ( 1 , 1 ) ,1))M2, 10M3, 11JM4)  OOOOIOlO 

47  CONTINUE  00001020 

50  LOC=IMTIU(3)  00001030 

IF(L0C  ,EQ,  0)  RETURN  00001040 

XrRITE  (6,52)  00001050 

52  F ORMAT ( //53X , 14H  COMMON  HLOCXS/50X,4HNAME, 10X,6MLENgTM)  00001060 

51  ITABEL ( 1 ) =I0THL ( 1 ,LOC)  00001070 

IF(ITABELd)  ,E(J.  IbLANK)  I T AhE  L ( 1 ) » I SL  A Sm  00001  080 

ITABEL (2) *IUTBL (2,L0C)  00001090 

WRITE  (6,55)  ITAbEL  ( 1 ), ITABEL (2) , IOTML (5, LOC)  00001  ) 00 

55  FORMAT (SOX, 44, A2,8X, 18)  0000)110 

LOC=IDTBL (4,LCC)  00001)20 

IF(L0C  ,NE.  0)  GO  TO  5)  0000))30 

RETURN  0000) )40 

END  0000))50 


I Eli) 


L 


SUttPOUTlNC  TYPE 

common  a ( 13?6) •0(500)*IDTBL{11*500)*1NIT1D(3».LASTID(3), ISPCh(3) t 

• Nat  10  (?) • JPTP.N,M, JTyP,USTAPT,N?, IFnCNH,L06I0* lOTYPtNiO* 

• tOC*LTYP»ITVP,IbLKDT*MOOE,IEPP,IOES 

dimension  lALPHl  (7) , IALPH? (7) • IALPN3 (4) , ULPM4 (7) , ULPMS (IS) • 

1 I0IM(3) 

INTE6EP  A, PPAP, comma, blank 
INTEGEP  BlTPUT,bITGET,COMLOC 

Data  i alphi/ihl« imo, ihg, imi , ihc, iha, jhl/ 

DATA  IALPM2/IMI , IHN , 1 hT , 1 Mt , IMG , I ht , i mm/ 

Data  i alpm3/imp, jme , iha, ihl/ 

Data  I alpha/ IhCt Imo. IHM, imp, ihl* ImE , imx/ 

Data  I ALPhs/ImD, ImO, IHU* IHH, Iml* ImE, imp, imp, imL , ihc, IHI , Ihs*  IhI  , 

• IMO.IHN/ 

Data  lpar/im(/,phar/im>/,comma/ih,/,blank/ih  / 

MUL*1 

IT»ITYP-18 

GO  TO  (10*?0.30«AO*SO) .IT 
10  DO  15  1*1.7 

IF  (NEXT  ( JPTR)  ,NE.  IALPH?(I))  GO  TO  HO 
15  CONTINUE 
ISTATE=4 
60  TO  60 
?0  DO  25  1=1.4 

IF  (NEXT  ( JPTRJ  ,NE,  1ALPH3(I))  GO  TO  HO 
25  CONTINUE 
ISTATE=1 
GO  TO  60 
30  DO  35  1=1.15 

IF  (N£  XT  ( JPTP)  ,NE.  lALPMSd))  60  TO  HO 
35  CONTINUE 
MUL  = ? 

ISTATE=3 
GO  TO  60 
40  DO  45  1*1.7 

IF  (NEXT  (JPTP)  ,NE.  IALPH4(I))  GO  TO  HO 
45  CONTINUE 
MUL=2 
ISTATE=? 

GO  TO  60 
50  DO  55  1=1.7 

IF  (NEXT  (JPTP)  .Nf,  IALPMI(I))  GO  TO  HO 
55  CONTINUE 
ISTATE=5 
60  ISUH»0 
iNCRsMUL 
CALL  GnLE 

IF  (JTYP  ,NE.  ?)  GO  TO  110 

call  search 

IF(ISPCm(2)  ,E0.  1)  Call  EPPOP ( IO.NxTID ( l ) .NxT IU (?) . IUM3. IUMm) 

IF  ( ISPCm ( 1 ) ,EO,  1 ) GO  TO  62 

idtyp*i 
call  stope 

LOC»MD 

6?  IF  (blTGET ( IOTmL (3.LOC) , H • 1)  •NE.  0)  60  TO  1?0 


,NE.  IALPM5(1)  ) 60  TO  HO 


NE  , lALPMl  (I)  ) GO  TO  HO 


1)  Call  lppop ( io.nxtid ( i ) .nxt iu (?) . ium3. iumm) 
1 ) GO  TO  62 


,NE.  0)  60  TO  1?0 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

OOOOOOHO 

ooooooyo 
00000100 
OOOOOl 10 
00000120 
00000130 
00000140 
00000150 
00000160 
000001 70 
00000180 
00000 1 PO 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
0000031 0 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
0000041 0 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
0O00O4M0 
00000490 
00000*^00 
00000510 
00000520 

00000530 

00000540 

00000550 


IF (KtXT ( JPTP)  ,Nf,  LPARj  60  TO  87 
ISllfa=l 
ItsLOC 
1 = 0 
I = I*1 
CALL  GNLE 

IF ( JTYP  .NE.  5)  60  TO  66 
IDIM ( I ) =N2 

IF(N?  .6T.  call  EHROH (8, IDmj , IOM?,  H)M3. IDM4 ) 

IF(N?  ,LE.  0)  CALL  ERROR ( « * I Um 1 , I OM? , I DM 3 1 I DM4 ) 
INCR=INCP*N? 

GO  TO  67 

?)  00  TO  110 


CALL  ERROR  no.NXT  10(1)  .KXTIO(?) 
GO  TO  66 


.NE.  1) 


65  IF { JTVR  .NE 

call  search 

IF(ISRCh(?)  .EO,  1) 

IF(ISRCMU)  .FO,  1) 

IDTYP=1 

call  store 

LOC  = MD 

66  IF  {falTGET ( lOTHL (3.LOC) • 1?, 1 ) 

$ call  t prop  (R,  IL-Mi  , idh?,  IDM3,  IDM4) 

IF  (biTGET { IDT8L ( 3.LOC) . 1 . 1)  .NE.  0)  GO  TO  130 
CALL  IhPTYP 

IF  (bIT6ET(I0THL(3.L0C) .10,3)  .NE,  4) 
f CALL  eRR0R{R.IDMUIUM?,I0M3,I0H4) 

IDTHL (3*LOC) srilTPUT ( I OTHL ( 3 . LOC ) .1*13) 
lUIM ( I ) s?**17*LOC 

67  IF (NEXT (JPTR)  .EQ.  COHHA)  GO  TO  6H 
IF(A(JPTP-1)  ,NE.  RPAR)  go  TO  110 
KrNEXT ( JPTR) 

LOC=IE 

IF (hITGET ( IOTHL (3.LOC) . 1 . 1)  .NE . 0) 
f CALL  ERROR ( 1 1 . lOTBL ( 1 .LOC) , IDTHL (?.LOC ). IDM3. IOM4) 
IDTHL (3.L0C) *HITPUT ( IDTHL (3.LOC) ,1.1) 

IF  ( I ,GT,  3)  GO  TO  110 
DO  80  Jsl.I 

80  IDTbL (4* J.LOC) sIDiM ( jj 

IDTHL (3.LOC) =HITPUT ( IDThL (3.L0C) .1.7) 

87  IF(INCH  ,EQ,  1)  GO  TO  90 

IF  (HZTGfcT(IDTHL(3.LOC) ,16.1)  .NE,  1)  GO  TO  90 
COMLOC«IOTBL (9.L0C) 

lOTBL  (5,COMLOC)*IOTBL (S.COMLOC) ♦lNCR-1 
9 0 IDTHL (3.LOC ) =HI TPUT (IDTHL (3.LOC) , I ST ATE , 10) 

IDTHL (3.LOC) «HITPUT( IDTHL (3.L0C)  ,1,11) 

IF(A(JPTR-1)  ,E(5.  COMMA)  GO  TO  60 
IF (NEXT (JPTR)  ,EO,  BLANK)  RETURN 
no  call  ERP0R(7,IDM1.I0M3,IDM?,I0M4) 

return 

120  CALL  ERROR ( IP.NXTIO ( 1 ) ,NXT ID (2) , I0M3, IDM4) 

RE  TURN 

130  CALL  ERROR ( 14.NXT10 ( 1 ) .NxTlD (?) , IOM3, IDM4) 

RETURN 

END 
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00000670 
00000680 
00000690 
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C0000780 
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00000820 
00000830 
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00000900 
00000910 
00000920 
00000930 
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00000950 
00000960 
00000970 
00000980 
00000990 
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00001060 
00001070 
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rtuxj  1 j a ry  P rojj^rains  and  As spci  ated  Data 


Program  GR^H_ 


SIHtNSION  INT(IOOO) 

10  F0«M4T(12Ib) 

^0  F0^HAT(2Ib.A4,?X,  I6,A4,?X,ri6/A4«3X,?I6*A4«3X,3I6|A4«2X,I6tA4»2X« 
Sei6/A4,?X»4l6,A4,2X,lI6«A4,2X,2I6/A4*2Xt2I6,A4,2X,8l6/A4t?X,I6,A4« 
S3X«Ib»A4.;.X.I6fA4,?X,3I6.A4,2X,A4,2X/3I6.A4,2X,3ie>»A4,2X,3I6,A4, 
$2X  / 716,  Ah,  ?X,  416/516,  A4,2X,  616/ U2  161  ) 

ReAO  10 , \ I4T  m , I :1, 1 1) 

MRI  TE  U»  t INf  ( II  , Isl  , U » 

<EAO  23  , Il?T 
HRITE(4)  1ST 
READ  10,INT 
«RITEU»  INT 
READ  10, INT 
»*RirE(4l  INT 
REAO  lOilNT 
MRIT£(4)  INT 
REAO  10,lNTm 
WRITE(4)  INT(I) 

REAO  13 • ( INT  m • T = 1 ,34) 

NRITE(4)  flNT  in  ,1  = 1,34) 

STOP 

END 
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Program  SESLIST 


iNTtGER  TYPE,CLASS*CLASS3*SLKSIZ  ( lOOl.BLKTYPdOO) 

OINENSION  iSUBtT  U*200)  » IN TF AC <60 0 » 1 1 ARGS ( 20 01 • NAME  I ? ) 
equivalence  (BLKTYPdl  , IARG$<  1)  I • (BLKSIZU)  « lARGS(lOl)  » 

EQUIVALENCE  UTEHP,RTEHPI 

NLISTsO 

IPTRsl 

1 REA0<5,9f END^^O)  NAHE . NARGSt T YPE, CL ASSt ISIZE 
5 fORHAT(A4»A2,lX,3I2«lY,I6) 

IFCISIZE  .LT.  1)  ISIZE=0 

MLIST=NLIST41 

iVARsO 

ISUBLT(1,NLIST) =NAME I II 
ISUBLT (2,NLIST) sNAHE (Zl 
IFCNARGS  .NE.  -1)  GO  TO  7 
NARGS^l 
IVAR^I 

7 NARG2=NARGS 
CLASSZsCLASS 
CALL  SHIFTLCCLASS2,22) 

CALL  SHIFTLfNARG2,26» 
call  SHIFTL(TYPE,1R) 

RTEHPsOR(ISIZE,CLASS2» 

RTEMP=OR(RTENPf NARG2I 
RTEHPsOR  CRTEMP*TYP£I 
ISUBLTI3iNLIST»=ITEHP 
ISUBLTUfNLISTIsQ 
IFCNARGS  *EQ.  01  GO  TO  1 
CALL  SHIFTHIVAR,1S) 

RTEHP=OR(ISUBLT(  3tNLlSTI  dVAR) 

ISU8LTC3,NLIST)=ITEMP 
ISUBLTI4*NLISTI=IPTR 
IF<CLASS  .£Q.  7)  GO  TO  25 

jptr=iptr 

lNCsl^(NARGS-l)/3 

IPTRsIPTR^lNC 

NOPTRsIPTR-1 

NPARAN=3*NARGS 

RE  AO  (5, 10)  lIARGSd)  «T=1«NPARAM) 

10  FORHAT(20 (311 »1X) ) 

KOUNTsQ 

00  22  I*JPTR,N0PTR 

ITEMP*0 

MSHIFT=32 

00  20  K=lt9 

KOUNTsKOUNT^l 

IFIKOUNT  .GT.  NPARANI  GO  TO  22 

NSNIFTsNSHIFT-3 

ISHIFTsNSHiFT 

IF(«00(K0UNr, 3)  .EQ.  0)  I5HIF T ^NSHIF T^ 1 
CALL  SHIFTL(IARGS(K0UNT) •ISHIFT) 

20  RTEHPsOR(RTEHPtIARGS(KOUNTI) 

22  iNTFACdlsITENP 
GO  TO  1 
25  JPTRsIPTR 

IPrR=IPTR4NARGS 

NOPTR=IPTR-l 

REAO(5,27)  (BLKSIZm  .BLKTYPfl)  ,Ix1,nARGS) 

27  FORNAT(10(r6#tX*riM 
KOUNTsO 

00  30  I*JPTR,NOPTR 
<OUNr«KOUNT«l 

CALL  SHIFTL(9LKSIZ(K0UNT)*15) 
call  shiftl cblktypckounti 
RTEHPsOR(0LKSIZeKOUNT), RLXTYP(KOUNT) ) 

30  iNTFACm  *ITEHP 
CO  TO  1 

40  NRIT£(4I  NLISTtNOPTR 

NRITE(4I  niSUBLTII.JI  ,1x1,41  ,Jxl  ,NLIST) 

WRITE(4I  (INTFAC ( II • IxltNOPTR) 

NRir£(6,50>  NLIST 

50  F0RHATI//42X, 37H  NEH  LIST  HAS  BEEN  CRFATEO  C ONT A I Nl NG , I 4 , 6H  NANES) 
STOP 
END 
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